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INTEGRATED WORD PROCESSING 
AND COMMUNICATIONS SOFTWARE 

For the Tandy 1000, 1200 and 2000, and IBM-PC/XT/AT/jr and compatible 
computers. Uses the same editing and communications commands as the 
Model 100/200 — plus much, much more! 


EASY TO USE . . . 


Look for Telecommuter at your local Radio Shack Computer Store! 


SIGEA SYSTEMS, INC. 


r 




19 Pelham Road, Weston, MA 02193 (61 7) 647-1099 
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“I am writing to let you know that I like your program very much indeed. 
The high speed transfers from my Model 100 to my Tandy 1000 are flawless. 
So many word processors are encumbered by in my view unnecessary 
baggage for the normal user. Yours is powerful, yet the user interface is 
elegant in its simplicity. It is essentially a 'Super Model 100’. Your advertising 
does not express the versatility of the program. I was intending to use 
it for general writing and articles. I now intend to use it for a book I’m 
working on.” 

Jay S. Moynihan, Esq. 
Ashland, Wl 

WITH POWER FOR THE BIG JOBS! 

"A few weeks ago I received Telecommuter ... it has been in constant 
use as a word processor, a telecommunications package (which has allowed 
me to access numerous databases), and to transfer files from my Model 
100 to the Tandy 2000. Since Telecommuter has arrived, both Word Perfect 
and Videotex Plus . . . the word processor and terminal program I had 
been using . . . have not left the shelf. I have also used Telecommuter 
to write dBase II command files, and it has made that job so much easier 
than when utilizing the programming section of dBase itself. My most 
enthusiastic congratulations on a superior product.” 

Ivan K. Goldberg, M.D. 

* • ■ ■ ■ ■ > . New York, NY 

Available in six versions: 


TC-Write It™ $125, TC-Standard and TC-XMODEM $200, TC-DeLuxe $300, 
TC-plus $400, TC-Corporate $1000. 

Advanced features include DOS access from Word Processor, XMODEM 
file transfer, Telcom macros, and full VT100 terminal emulation. Host Mode 
gives control of your computer to a remote Model 100/200 or MS-DOS 
computer running Telecommuter. 


Call or write today for more information on the entire Telecommuter product 
line. Product upgrades available for difference in price. We accept 
MasterCard and Visa for mail or telephone orders, and we ship free in 
the USA. 
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From Computer Plus to YOU . . . 

PLUS after PLUS after PLUS 


Smith Corona L-1000 
$259 


Tandy 1000 $779 
Tandy 1000 HD $1539 


Color Computer II 
w/16K Ext. Basic $179 


Tandy 1200 HD $1599 
10 Meg. 256K 


Tandy 200 24K$739 
Model 100 24K $510 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 1 Drive 128K 779.00 

Tandy 1000 HD 10 Meg. 256K 1539.00 

Tandy 1200 10 Meg. 256K 1599.00 

Tandy 2000 2 Drive 256K 1295.00 

Tandy 2000 10 Meg. 256K 2025.00 

Model IV Desktop 64K 959.00 

PRINTERS 

Radio Shack DMP-2100P 1159.00 

Radio Shack DMP-430 660.00 

Radio Shack DWP-220 Daisy Wheel469.00 
Radio Shack TRP-100 Portable 229.00 

Silver Reed EXP-550 Daisy Wheel 430.00 
Star SG-10 245.00 

Star SG-15 410.00 

Star SD-10 365.00 

Panasonic P-1091 275.00 

Toshiba 351 1325.00 

CITOH Prowriter 851 0AP + NLQ 345.00 

Okidata 192 379.00 

Okidata 193 539.00 

Epson LX-80 245.00 

Epson FX-80 359.00 


Tandy 1000/1200 ACCESSORIES 

Tandy 1000 Disk Drive Kit 159.00 

Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 265.00 
256K Ram Board (inc. 128K & DMA)199.00 
51 2K Ram Board (includes 128K) 169.00 
256K Memory Plus Expansion Brd.249.00 
PBJ Multi-Function Board (128K) 269.00 
PBJ Multi-Function Board (256K) 299.00 
PBJ Multi-Function Board (512K) 349.00 
128K Ram Upgrade Kit (Tandy) 115.00 
128K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for PBJ Board)69.00 
300 Baud Modem Board 129.00 

RS-232 Serial Board 89.00 

Digi-Mouse/Clock Board 89.00 

Tandy 1000/1200 MONITORS 
Tandy VM-2 Green Monitor 129.00 
Tandy CM-2 RGB Color Monitor 379.00 
Tandy VM-3 TTL Green Monitor 179.00 
Taxan 122 TTL Amber Monitor 139.00 
Tandy 1200 Text Monitor Adapt. 179.00 


Tandy 1200 Color/Graphics Adapt240.00 


CALL TOLL FREE 
1 - 800 - 343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 


MODEMS 

Radio Shack DCM-3 Model 52.00 

Radio Shack DC Modem II 160.00 

Radio Shack DC Modem 2212 315.00 

Hayes Smartmodem II 300 Baud 215.00 
Hayes Smartmodem 1200 Baud 429.00 
Novation J-Cat 300 Baud 115.00 

FOR EVERYONE 

Network Four Outlet Surge Prot. 69.95 
CCR-81 Cassette Recorder 52.00 

CCR-82 Cassette Recorder 43.00 

C-20 Digital Cassette Tapes (lOpk) 9.95 
Verbatim SSDD Plastic Box (lOpk) 24.95 
Verbatim DDDD Plastic Box (lOpk) 29.95 
Generic SSDD Diskettes (lOpk) 17.95 

NEC 64K Ram Chips (set of 8) 49.00 

Radio Shack 16K Ram Chips (8) 25.00 

Locking Disk Box (holds 70) 19.95 

Flip N File Disk 50 15.00 

Fanfold CleanEdge Paper (2600) 35.00 

Radio Shack software 10% off. 

Send for complete listing of 
brand name software and hardware. 


com 


P.O.Box 1094 
480 King Street 
Littleton. MA 01460 

IN MASSACHUSETTS CALL (617) 486 


TRS-80 is a registered trademark of Tandy Corp. 
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Tandy computers 

offer everything 
...almost 


Check out the software that completes their systems 

— fileProP 


Tandy MS-DOS Software Comparison Chart 


GENERAL 

CHARACTERISTICS: 


Menu driven 


Allows user to create integrated 
business systems 


Developed systems and data can be 
moved to multi-user environments 


Professional support available 
from the software’s authors 


PRICE 


CAPACITIES: 


Fields per record 


Characters per record 


Records per file 


Indexes per file 


Number of digits per numeric field 


Number of files usable concurrently 


Files span multiple drives 


FEATURES: 


Full-screen facility for creating 
custom screen layouts 


Full-screen facility for creating 
custom report layouts 


Built-in field types 
(error checking) 


User-defined field types 


Conditional math 


User-defined menus 


Change file layout without 
losing existing data 


Data protection 


Password security 


pfs* 

File/Report 


yes 


no 


no 


no 


$265 


100 


1679 


1300 


20 


no 


yes 


no 


no 


no 


no 


no 


possible 


no 


no 


dBase' 

II 


no 


programmer 

required 


no 


no 


$595 


32 


1000 


65535 


10 


no 


no 


no 


programmer 
required 
programmer 
required 


programmer 

required 


possible 


programmer 

required 


programmer 

required 


filePro 16 

Smallware 


YES 


f: 


YES 




YES 


z: 


YES 


$495 


999 


4608 


16,000,000 


12 


24 


10 




up to 8 


YES 


YES 


YES 


automatic 



The new Tandy computers 
can really speed things up. If 
you don’t let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi- 
user computers. 
filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store’s Express 
Order Software service. 

To order, call 
(800) 847-4740. 

For customer service or 
when dialing in New York 
State, call (212) 398-9290. 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 
including IBM PC, IBM PC-XT, and 
NCR Decision Mate. 


The Computer Company, Inc. 

.240 230 West 41st Street, Suite 1200, New York, New York 10036 

Smallware and filePro are registered trademarks of The Small Computer Company, Inc. dBase II is a trademark of Ashton-Tate. pfs File/Report 
is a registered trademark of Software Publishing. Profile is a registered trademark of Tandy Corporation. 
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Test Driveable 
Software — 


Best Marketing Idea to 
Come Down the Pike 


T o my mind, anyway, one of the 
biggest issues in the world of 
software selection is that there is 
really very little opportunity to see just 
how well or poorly a product is matched 
to your individual needs. 

While at the recent Summer Consum- 
er Electronics Show in Chicago, I had 
a very interesting chat with the mar- 
keting director of a firm which publishes 
what I consider to be a very fine 
integrated package. He was bemoaning 
the fact that sales personnel in almost 
every computer store are woefully 
unable to really assist clients in selecting 
software for their particular needs. 

“A guy learns to run Lotus 1-2-3 and 
he thinks he’s a computer whiz,” was 
the lament. “With no disrespect to 
Lotus, one of the reasons they have so 
many sales is simply because their 
program is all that half the sales people 
in the world know how to run. 

“It sure would be nice if people could 
take a product to their home or office, 
try it out, and then see if it is really 
what they want,” he added. “Of course, 
with the tremendous cost of these 
programs — and the piracy problem 
— that’s just not possible.” 

This problem becomes more acute 
when dealing with mail-order programs. 
And, since quite a number of programs 
are sold through mail order, there has 
to be some other way. 

Add to this the way most firms 
address this problem — with “demon- 
stration disks” that either do not do 
everything the program does or just 
flash up sample screens — and you do 


have an interesting issue. 

Even with something as expensive as 
an automobile, you get to take a “test 
drive.” Why can’t it be possible to “test 
drive” software — the full version, not 
some watered down “demo?” 

Now you can. 

A company called Software Concepts, 
Inc. has a new scheme that allows you 
to have a full-blown demonstration of 
one of its new programs — a compu- 
terized Atlas. If you like what you see, 
you call them, they give you a code to 
“unlock” the disk, and charge you for 
it. If you don’t like it, you simply 
reformat the disk and use it as a blank. 

There are a couple of ways this works. 
One of them is to send Software 
Concepts $5 and they will send you the 
disk and the documentation. They 
figure $4 is the cost of the disk, $1 is 
the shipping charge. So, at the worst, 
you get a disk for $5. 

The disk contains the entire program. 
You are allowed three 40-minute 
sessions with it. During those sessions, 
you can do anything you wish — this 
is a “full blown” version of the Atlas. 

I have tried this out and it works well. 
This is not the appropriate place for 
a review of a program, so we will leave 
that for later. But I am highly encour- 
aged by the concept and believe it 
represents an innovative and skillful 
way to market software. Software 
Concepts’ idea means you have sufficient 
time, your own time, to make your own 
decision. I hope other firms will look 
at this and other innovative means of 
marketing in the future. 


I am pleased to be able to report that 
PCM is growing by leaps and bounds 
and that, obviously, we are expanding 
again. We certainly got a lot of positive 
comments on last month’s issue — the 
first time we had “perfect bound” our 
magazine. 

Perfect binding is what the “square 
back” look is called. It gives us a little 
more flexibility and means that we can 
have a nicer looking magazine as well. 
I hope you like it. 

I don’t mean to make this last, but 
the reaction to PCMfest has been 
excellent thus far and I hope you will 
make plans to be with us in Princeton, 
N.J. October 11-13. There’s a ticket 
order form in this month’s issue and 
you can save a few bucks by advance 
ordering your tickets. 

Too, I would suggest you make your 
reservations now for hotel space at the 
Hyatt Regency-Princeton if you will 
need to stay over with us (hope you 
do!) because sometimes the convention 
hotel sells out early. If so, you miss the 
guaranteed room rates and have to 
drive back and forth from someplace 
else. 

One last note: we can’t guarantee that 
Brooke Shields will be at PCMfest this 
year, even though she lives in town and 
attends Princeton University. She was 
at the hotel for the weekend when 
RAINBOWfest was at the same place 
last year. 

— Lonnie Falk 
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NO ADDED MEMORY 
BOARD NECESSARY I 


COMPLETE KIT- 
NOTHING ELSE TO 
BUY 


BOOTS OFF HARD 
DRIVE 


g%.8aw®ls 


INSTALLS IN 
MINUTES WITH ONLY 
A SCREWDRIVER 


TERMS- 
MONEY ORDER 
CASHIER’S CHECK 
*CO.D. 

*MASTERCARD/VISA 
5% FEE 


INTERNAL KITS 
AVAILABLE FOR*: 
TELEVIDEO 
TANDY 1000 
SANYO 
COMPAQ 
LEADING EDGE 
PANASONIC 
CORONA 
IBM PC 
NOVA 

AT&T, NCR & ITT 




PLUS SHIPPING & 
HANDLING 


antoitat 


10 MEG 
$895.00 


nRR;F<T* 1 100% IBM COMPATIBLE - WE USE ONLY QUALITY 
DRIVES & WESTERN DIGITAL CONTROLLERS FOR THE HIGHEST QUALITY. WE 

SYSTEM WITH A 1 YEAR WARRANTY. THE SYSTEM COMES 

V™ ALL CABLES & MOUNTING HARDWARE. REQUIRES NO ADDED 

Si°A R m ? ™ J? C 2 PERATE 20 & 32 MEGABYTE INTERNAL HARD DISKS ALSO 
AVAILABLE. COMPLETE INFO AVAILABLE UPON REQUEST. 

RTX TECHNOLOGIES, INC. 

RO. BOX 50398 
NASHVILLE, TENN. 37209 
(615) 373-1251 


'SAME PRICE AS TANDY 
'ALL MS™-DOS COMPUTERS 


| 20 MEG 

I 32 MEG 

| $1195.00 

I $1395.00 
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Letters to PCM 

| Department 




T1K SATISFACTION 

Editor: 

I am a fairly new user of a Tandy 1000, 
but I am not new to computing as I have 
had a Color Computer since the days 
when THE RAINBOW was only 42 pages 
long. When I needed to expand, I 
naturally looked to Tandy. I have not 
been disappointed since the 1000 will do 
all I expected of it, however there are one 
or two things I would like to clarify, and 
that is why I am writing to you, in the 
hope that someone in “Tandyland” can 
help me. 

The colorful brochure on the 1000 
published by Tandy mentions several 
features of the 1000 that are not covered 
in any documentation 1 have seen (these 
are all in the small print at the bottom 
of the last page); they are: user definable 
character set, double high characters and 
smooth scrolling and split screen. Can 
anyone throw any light on them? 

I have a DMP 200 connected to my 
1000. It worked flawlessly when coupled 
to my Color Computer, yet when driven 
by the 1000 I occasionally get the random 
insertion of an extra character, always the 
duplicate of the one preceding it. This 
happens regardless of the software 
running at the time. Has anyone else seen 
this, or is it a bug in my particular 
machine? 

Finally, the joysticks under BASIC. 
When I try the short program listed on 
page 3 13 of the BASIC Reference Manual 
the values displayed on the screen do not 
appear in a logical sequence. As near as 
I can tell they should start at 1 (or 0) 
for the far left position and increase 
progressively to 255 (I think) at the far 
right (this is for STICK (2)). Instead they 
increase from 4 and then rapidly oscillate 
between a low number and a number over 
200; they even do this with no joystick 
plugged in. Am I doing something wrong, 
or is BASIC incomplete for this function, 
or is my A-D converter malfunctioning? 


It is not my joysticks, since I get the same 
result with brand new deluxe joysticks 
and with the mouse! 

Thank you for any assistance you can 
give me. 

C.F. Thompson 
Nelson , British Columbia 

Editor's Note: The Tandy 1000 does 
indeed have a video mode which 
allows you to define your own 
character set (a standard feature on 
the IBM PC). Like IBM , though , 
Tandy does not supply software to 
allow the average user to redefine 
the characters . We have seen an 
IBM PC program in the public 
domain for this function, but do not 
have one available to print. If we 
come across one, you'll see it in 
these pages. 

Unlike the Tandy 2000 's version 
of MS-DOS, the 1000's DOS does 
not have a built-in facility for 
smooth scrolling. The machine is 
capable of it, but once again, it is 
a matter of software. 

Concerning your printer prob- 
lems, it is possible that your printer 
is at fault. When the printer is 
connected to your Color Computer, 
you are using the serial (RS-232) 
interface instead of the parallel 
interface you use with the Tandy 
1000. Since the parallel interface is 
different circuitry, there could be a 
problem there and the machine 
would work perfectly when con- 
nected serially. Then again, the 
problem could be as simple as a bad 
cable. Before taking your printer to 
be serviced, we suggest borrowing 
another cable and trying it. 

We have experienced the same 
problems here when using the 
joysticks in BASIC. When used with 
other programs, they seem to work 
fine. It looks like basic is the 
problem. The new version of BASIC, 


which will be released along with 
the new version of MS-DOS, should 
solve this problem. It's expected to 
be available this month. 


PCM ON COURSE 

Editor: 

The FBYTES. CO article by Ron Balonis 
(May 1985) clearly shows that PCM is 
going in the right direction. Not only is 
FBYTES . CO a useful program in itself, but 
the accompaning article is also informative 
on the operation of the machine language 
program. The source code and description 
of the operation of the program in the 
article were particularly helpful. 

Also on the subject of assembly lan- 
guage, I have typed in the listing that 
appeared in the April 1985 issue of PCM. 
I have not been able to find all of my 
typos. Is it possible to purchase a copy 
on cassette or bar code from PCM or the 
author? 

Bennett D. Shulman 
Lansing , MI 

Editor's Note: FBYTES. BR was 
printed in bar code in that issue. 

It is a BASIC program that generates 
the machine language program, 
FBYTES. CO. The assembly language 
listing was provided mainly to 
explain how the program worked 
and does not have to be keyed in 
if you use FBYTES . BR. 


HITCHING TO A STAR 

Editor : 

I’ve just received my second issue of 
PCM, and I must say that I am pleased 
with what I see. I recently purchased a 
Tandy 1000, and I am having a problem 
interfacing my Star Micronics Gemini 
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10X printer to it, and I’m hoping that 
you can give me some help. 

The printer functions properly when 
printing text, but I’m having difficulty 
printing graphics. The GRftPH ICS . COM file 
that comes with the Tandy 1000 will not 
drive the Gemini, since it is made for 
Tandy’s CGP-220 Ink Jet Printer, but I 
pulled out my trusty IBM PC-DOS disk 
and found that the GRRPHICS.COM file 
that IBM supplies will drive a Gemini, 
sort of. The Graphics image is printed 
(using “shift-print”), but the printer 
inserts too long of a line feed between 
each printed line. I’ve connected my 
Gemini to a friend’s IBM PC, and it 
behaves the same way. 

Have any other Gemini owners encoun- 
tered this problem? Is there a way to “fix” 
the PC-DOS GRRPHICS.COM file so the 
printer will print graphics correctly? 

Any help would be appreciated very 
much. Thank You! 

Chris Olonzo 
Millington, NJ 


Editor's Note: You might try chang- 
ing a dip switch on your printer. 
There is usually a switch marked 
something like CR/LF which ena- 
bles or disables the automatic line 
feed after carriage returns. Inciden- 
tally, the new version of MS-DOS 
for the Tandy 1000 which should 
be out later this month has a utility 
for printing black & white images 
on a number of Tandy printers. 
That will not help you with your 
Gemini, though. 


USER GROUPS WANTED 

Editor: 

I have a TRS-80 and am an avid Tandy 
user. I am interested in contacting other 
Tandy users and User Groups. Do you 
have a back issue that lists the addresses 


of your current user groups? If so, I would 
be interested in receiving that issue or 
information on a contact person. 

Rod Aldrich 
Marquette, MI 

Editors Note: We have not printed 
lists of user groups, but it's a great 
idea! 

Attention Tandy user groups! 
Send us your address, telephone 
number, a contact name, and a 
description of your group. Well 
periodically print a list of users 
groups. 


HIS WORD 

Editor: 

The recent review of MY WORD!, our 
word processor for the Tandy 1000/ 1200/ 
2000 and all IBM PC-compatible com- 
puters, contains two inaccuracies. 

First, the reviewer mentioned that he 
couldn’t determine how to set the right 
margin until he stumbled across a method 
that appeared to work: depressing the ESC 
key. 

In fact, instructions for setting the 
margin (in two different ways) appear in 
the manual. There is an entry in the 
second page of the table of contents of 
the manual which may have been over- 
looked by the reviewer. The entry reads: 
“Set right margin (^OR) 36.” 

On Page 36, both methods of setting 
the right margin are described; the 
alternate method of setting the right 
margin used by the reviewer is highlighted 
in boldface print. 

The second error is of less consequence. 
The reviewer mentions that MY WORD! 
appears to emulate WordStar. He also 
states that this fact, if true, is not 
mentioned in the manual. 

However, the introduction to the 
manual (see Page 9) contains the following 
sentence: “In case you haven’t already 


guessed, the package I’m emulating is 
WordStar .” 

WordStar also appears in the index to 
the manual, and is cross-referenced to 
Page 9. The manual also contains several 
places where WordStar is acknowledged 
to be a trademark of MicroPro Interna- 
tional, one of which is also on Page 9. 

Despite these inaccuracies, we were 
happy with the content of the review. It 
was apparent that the reviewer was 
pleased with the quality and value of our 
package, especially in light of our price: 
just $35. We are truly grateful for the 
reviewer’s comments and his recommen- 
dation of MY WORD! 

Your readers should also note our 
guarantee. Our package may be returned 
for a full refund of the purchase price 
within 30 days. 

Thank you again for your courtesy in 
sending a copy of the review to us. Your 
publication certainly combines high 
ethical standards with editorial quality, 
something all too rare today. 

Bruce W. Tonkin 
President, T.N.T. Software 
Round Lake, IL 


MOVIN’ ON UP 

Editor: 

My wife is still using the Color Com- 
puter for word processing, but I have 
changed everything over to the Tandy 
1000. 

I have purchased Lotus 1-2-3, dBASE 
//, and the DAC Software accounting 
programs, so you can see the articles in 
PCM will be helpful. 

Dollar for dollar I don’t see how the 
1000 could be beat. I am sure it will not 
be long before PCM is the size of the 
RAINBOW. I just hope you will keep PCM 
more for business applications and leave 
the games and graphics for the Rainbow. 

Bud Mott 
Cushing, OK 


llEW TANDY 200 24K EXPANSION MODULES $ 149 

1 TWO EXPANSION MODULES FOR $275 


■ 8K MEMORY MODULE $35 ■ 

For your Model 100 & NEC PC-8201. Field proven (over 20,000 in use), factory tested and fully supported. 


Just for your NEC PC-8201 

SIDECAR 32K RAM CARTRIDGE $199 

Expandable to 128K/Plugs into side of the NEC PC-8201 
Each additional 32K RAM bank $100, installed. 


€*9PURPLE 420 Constitution Ave. 

fM* COMPUTING Camarillo, CA 93010 


Portable Thermal Printer 

TTXpress MODEL 1280 $170 

Battery opperated, 2.2 lbs., 8 V 2 n paper, 40 cps., parallel. 

FREE SHIPPING, HANDELING & INS. FOR CONT. USA. 

Orders shipped UPS next business day. 30-day satisfaction, 
money back guarantee. We accept Visa, M/C & Amer. Exp. 
Checks held 18 days. 

( 800 ) 732-5012 (805) 987-4788 (in Calif.) 
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By John B. Harrell, III 


A recent issue of PCM Magazine 
illustrated a short sequence of 
DEBUG commands that allowed 
changing the Tandy 2000 video colors 
while in the monochrome video mode. 
This technique changed the bytes in the 
BIOS code which initialized the attribute 
colors and involved modifying the 
BIOS code contained in the hidden 
system file 10 -SYS. 

The method presented specified 
commands that were specifically for the 
hard disk drive and would not work 
as listed with floppy diskettes. Fur- 
thermore, the procedure involved using 
the read/ write relative sectors functions 
in DEBUG to modify the code and is 
inherently unsafe. A simple typographi- 
cal error can irrevocably destroy your 
valuable disk information. 

A much simpler solution is required 
to guarantee success and to preserve the 


(John B. Harrell III has written for 
microcomputer magazines for three 
years. He holds a B.S. degree in 
computer science and is a software 
technical expert for Navy electronic 
support measures systems ) 



Selecting 
Colors 
for your 
Tandy 
2000 


disk integrity. This article will provide 
a simple program which allows you to 
tailor the four color selections to your 
taste and then writes a simple program 
file that you can execute from any MS- 
DOS command prompt to set these 
colors. 

The resultant program (111 refer to 
it as COLOR . COM for the time being) will 
make the appropriate changes in the 
BIOS code which is resident in memory, 
achieving the same effect as the previous 
method of modifying the disk-resident 
code. Because the actual BIOS code is 
modified, the net result is identical to 
modifying the disk code and rebooting 
the system. The biggest advantage of 
this method is that you have not 
chanced losing all the information on 
the disk. 

SETCOLOR — The Program 

SETCOLDR is very easy to use — 
simply enter the program contained in 
Listing 1 using the BASIC interpreter. 
Enter the numbers contained in the 
DATA statements carefully as this is the 
heart of the color selection program. 
You will need a copy of the MS-DOS 
Operating System Version 02 A 1. XX. 
CDLOR.COM will not operate correctly 
with the older version of MS-DOS. 

Now, let’s look at what SETCOLOR 
really does (all comments refer to 
Listing 1). First, SETCOLOR sets the 
video mode with color burst turned off 
(Line 30) and selects the black-and- 


white mode with the colors contained 
in the BIOS code. Lines 50 through 100 
extract the color codes contained in the 
resident BIOS code and insure that the 
screen colors are set correctly by 
sending them to the appropriate port 
registers using BASIC’s OUT command. 

Lines 1 10 through 200 write the color 
selection prompts on the video screen 
using BASIC’s COLOR statement to select 
the foreground and background attri- 
butes of the prompts. The background 
color (i.e., the color surrounding each 
of the letters) of each of these prompts 
matches the color that will be changed 
by altering this selection. The final 
prompt displays a menu of allowable 
entries using the “blink” mode. 

The next segment of code from lines 
210 through 320 accepts your input for 
each selection. First, a prompt is 
displayed using attributes identical to 
the selection that it matches with the 
text blinking. Next, the default color 
and corresponding port address are 
passed to the subroutine which accepts 
your input (G0SUB 510). The last 
statement of each group saves the 
selected color for later use in construct- 
ing the actual program. 

The lines from 330 to 490 accept the 
filename of the COM file to be constructed 
with the selected color information. 
Once the File has been opened, COLOR - 
. COM is constructed by reading the DATA 
statements and writing the information 
to the named file a byte at a time. 


The last part of this program segment 
adds the selected color information to 
the end of this short program. Figure 
1 contains a symbolic assembly language 
listing of the code contained in these 
DATA statements, with comments suit- 
able for explaining what is accom- 
plished. 

Lines 510 through 570 accept the 
input for color selections. Colors are 
specified by hexadecimal digits (see 
Figure 2 for an index of colors and their 
numerical equivalents), and the alpha- 
betic characters may be typed in either 
upper- or lowercase. If the character is 
a valid hexadecimal digit, it is converted 
to binary and output to the port address 
passed as a parameter to this subroutine. 

Explanation of the B&W Color Mode 

During normal color graphics mode 
of operation on the Tandy 2000, the 
video controller extracts display data 
from the RAM beginning at segment 
address E000H. The video graphics 
RAM consists of three planes (or 
banks) of 32,000 bytes of memory and 
setting any bit in any of the planes will 
set the corresponding pixel on the video 
screen. 

Colors are displayed by setting one 
or more bits in a corresponding pixel 
location (bits in different video planes), 
which then select the color from the 
palette location corresponding to the 
binary pattern stored in the planes. 

All three planes of screen data are 
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Figure 1 


COLOR.COM BIOS Patch Routine 

Generated Code 

Instruction 

Comments 

31 C9 

XOR CX,CX 

;CLEAR CX REG TO USE IN ES 

8EC1 

MOV ES.CX 

; AS THE SEGMENT FOR BIOS 

BB 29 01 

MOV BX,0129 

;POINT TO THE COLOR VALUES 

8A 07 

MOV AL,[BX] 

;GET FIRST COLOR VALUE 

26 

ES: 

;SEGMENT OVERRIDE 

A2 F3 IB 

MOV [1BF3],AL 

;STORE NORMAL BKGD COLOR 

8A47 01 

MOV AL,[BX+1] 

;GET SECOND COLOR VALUE 

26 

ES: 

;SEGMENT OVERRIDE 

A2 F9 IB 

MOV [1BF9],AL 

;STORE NORMAL FGD COLOR 

8A 47 02 

MOV AL,[BX+2] 

;GET THIRD COLOR VALUE 

26 

ES: 

;SEGMENT OVERRIDE 

A2 FF IB 

MOV [1BFF],AL 

;STORE HILITE BKGD COLOR 

8A 47 03 

MOV AL,[BX+3] 

;GET FOURTH COLOR VALUE 

26 

ES: 

;SEGMENT OVERRIDE 

A2 05 1C 

MOV [1C05],AL 

;STORE HILITE FGD COLOR 

BB 02 00 

MOV AX, 0002 

;SET SERVICE/ FUNCTION CODE 

CD 10 

INT 10 

;SET SCREEN MODE BIOS CALL 

CD 20 

1NT20 

;RETURN TO MS-DOS 

WW XX YY ZZ 

DB WW,XX,YY,ZZ 

;COLOR BYTE VALUES 

Note: This code 

sequence is designed for use 

with DEBUG and not the macro assembler. All numbers are 

in hexadecimal. 




mapped into the same RAM address 
space. Selection of any one of these 
planes is controlled by the bit pattern 
output to I/O port 01 AOH (refer to the 
Hardware Reference Manual for a 
complete description of the bit map 
associated with this port). This bit 
pattern also controls the selection of the 
graphics RAM for display or the 
selection of the monochrome RAM. 

The monochrome RAM is not fixed 
at a particular segment address as is 
the graphics RAM. During initialization 
of the computer system, this RAM area 
is established as the last 5K bytes of 
your addressable memory space. For 
example, 3EC0H is the segment address 
for a 256K Tandy 2000 and 7EC0H is 
the segment address for a 512K RAM 


Using the normal/highlight and 
normal/ reverse video modes gives us 
the four different colors that may be 
displayed on the video screen in the 
black and white mode. The colors 
selected by these attributes are deter- 
mined by the selector byte output to 
the port addresses described in Table 
1. This is typically performed by MS- 
DOS during initialization and each time 
the video screen is restored to the black 
and white mode. 

The small COM program generated by 
SETC0L0R (COLOR . COM) will set each of 
the colors you select into the appropriate 
locations in the BIOS code. After the 
BIOS code has been patched, C0L0R- 
. COM issues a BIOS interrupt request 


Port 

Table 1 

Address 

Function 

0198H 

Normal background color 
typically set to black for 
standard MS-DOS 

019AH 

Normal foreground color 
typically set to white for 
MS-DOS 

019CH 

Highlight mode back- 
ground color typically set 
to black 

019EH 

Highlight mode foreground 
color typically set to bright 
white 


system. 

Unlike the graphics RAM, the mo- 
nochrome RAM is organized as a byte 
of character information followed by 
a byte containing that character’s 
attributes. The exact description of the 
bits contained in this byte may be found 
in the Hardware Reference Manual. 
They specify that the byte preceding it 
may be displayed in normal or highlight 
mode and normal or reverse video. 
Other bits may specify blinking or 
underlined special features. Attributes 
may be combined in almost any 
selection. 



Figure 2 

Tandy 2000 Color Selection 

Table 

Number 

Color Meaning 

Number 

Color Meaning 

0 

Black 

8 

Black 

1 

Blue 

9 

Bright Blue 

2 

Green 

A 

Bright Green 

3 

Cyan 

B 

Bright Cyan 

4 

Red 

C 

Bright Red 

5 

Magenta 

D 

Bright Magenta 

6 

Yellow 

E 

Bright Yellow 

7 

White 

F 

Bright White 
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Prices Change 
Every Day. 
Please Call 
1-800-343-8841 
For Ivower Prices. 


PRICE BREAKTHROUGH 


DEALER INQUIRIES INVITED 


Prices Change 
Ever>' Day. 
Please Cal! 
1-800-343-8841 
For Lower Prices. 


MEGADISK™ HARD DISK DRIVE SYSTEMS TOLL FREE ORDERING 1-800-343-8841 

For the I Tandv i i :,TRS/80 Models I/III/IV/4P, Compaq, Eagle, Sanyo, 


{ 


Tava, PC Workalikes, Color Computers, Heath/Zenith, Max/80 
Complete with Hardware, Cables, Software and Quikfit Installation 


5 

10 

20 

5 

10 

20 


w Q 


:: 


Afei v 


Megabytes Internal Mount 

Megabytes Internal Mount 

Megabytes Internal Mount 

Megabytes External System 

Megabytes External System 

Megabytes External System 

Streaming Tape Backup System — Internal Or External 

nn5 «, _ A .... / IBM/Heath - DOS, 1.0, 2.0, 2.1, 3.0, or later 

DOS Systems Available. | TRS/80-LDOS, TRSDOS 6.x, Newdos/80, Dosplus 3.5, CP/M, COCO DOS, Max/80 LDOS, OS9 

FULLY WARRANTIED — PARTS AND LABOR — 24 HOUR SERVICE — CALL TOLL FREE — 1-800-343-8841 






ces 


starting at 
starting at 

starting at 
starting at 
starting at 
starting at 
starting at 


299.95 

544.95 

799.95 

499.95 

699.95 

999.95 

499.95 


FLOPPY DISK DRIVES, POWER SUPPLIES AND CABINETS 

Our Disk Drives are UL approved — Our Floppy Drive Cabinets and Power Supplies 
are Underwriters Laboratory Listed and have passed the required Federal 
Communications Part 15 Section B-EMI/RF1 tests. 

Warranty on all disk drives is one full year parts and labor. Warranty on floppy disk 
drive power supplies is five (5) years. In warranty or out of warranty service is 24 hour 
turn-a-round on all disk drives and potver supplies. 

Tandon — Full Height Drives 

100-1 Single Sided 40 tk Bare $125.00 

In Case with Power Supply 166.95 

Dual Drives in One Cabinet 326.95 

100-2 Dual Sided 40 tk Bare 162.00 

In Case with Power Supply 206.95 

Dual Drives in One Cabinet 381.95 

Half High Drives 

65-1 Single Sided 40 tk Bare 122.00 

In Case with Power Supply 156.95 

Dual Drives in One Cabinet 306.95 

65-2 Dual Sided 40 Ik Bare 142.00 

In Case with Power Supply 176.95 

Dual Drives in One Cabinet 346.95 

65-4 Dual Sided 80 tk Bare 162.00 

In Case with Power Supply 196.95 

Dual Drives in One Cabinet 356.95 

TEAC Half High Drives 

55A Single Sided 40 tk Bare 125.00 

In Case with Power Supply 166.95 

Dual Drives in One Cabinet 316.95 

55B Dual Sided 40 tk Bare 157.00 

In Case with Power Supply 196.95 

Dual Drives in One Cabinet 356.95 

55F Dual Sided 80 tk Bare 177.00 

In Case with Power Supply 216.95 

Dual Drives in One Cabinet 386.95 

Apple/Franklin Disk Drives 

35/40 Track in Case with Cable and Software 159.95 

Controller Card for Two Disk Drives 46.95 

Combination Price for Disk Drive and Controller 196.95 

Commodore Disk Drives 236.95 

Power Supplies and Cabinets 5'/4r, and Hard Drive Systems starting at 42.00 


************ MEGADISK SPECIAL ************ 

With a 10 megabyte system, you can purchase a complete IBM or 
PC compatible host, software and cable for only $15.00!! 

P.S. Ask about the MEGAPLEXER. 


IBM - PC/XT WORKALIKE 

All of our computers have: 8 slot motherboard, 640K, monochrome adapter, parallel 
printer port, 130 watt power supply, free software — all with our full warranty. 

/PC- 2 Floppy Drives - Monochrome Monitor, MS-DOS $1,595.00 

Color system resolution - 720h x 240v, MS-DOS $1,995.00 

5meg/XTtra - 1 Floppy Drive - Monochrome Monitor, MS-DOS . $1,745.00 

Color system resolution - 720h x 240v, MS-DOS 2,145.00 

lOmeg/XTtra - 1 Floppy Drive - Monochrome Monitor, MS-DOS 2,095.00 

XTtra - Color system resolution - 720h x 240v, MS-DOS 2,495.00 

20meg/XTtra - 1 Floppy Drive - Monochrome Monitor, MS-DOS 2395.00 

XTtra - Color system, MS-DOS 2,795.00 

Internal Tape Backup For Any Of Above systems Add $449.95 


COLOR COMPUTER DISK DRIVE SYSTEMS AND ADD IN PRODUCTS 
40 Track Single Head Drive with Case, Power Supply, Cable 

Controller, Instruction Booklet, Diskettes $239.95 

Above with Dual Drives in One Cabinet 374.95 

40 Track Dual Head with Case, Power Supply, Cable, 

Controller, Instruction Booklet, Diskettes 259.95 

Above with Dual Drives in One Cabinet 399.95 

128 Memory Upgrade Kit 129.95 

Dual DOS Switch 19.95 

With Second DOS System — JDOS, RSDOS, Micro DOS, and Booklet 69.95 

MODEMS 

Volksmodem 300 Baud $ 69.95 

Signalman Mark X Autodial 123.95 

Mark XII 1200/300 Baud Autodial 284.95 


PRINTERS 

Dot Matrix 

Citizen 


$ Call 

Star Micronics 

Gemini 120 CPS Near letter quality 

. . . starting at $259.95 

Delta 10/15 160 CPS 


424.95 

Radix 10/15 200 CPS 


649.95 

Panasonic 1090 


249.95 

Daisy W'heel 

Silver Reed 440 80 Column 12 CPS 


315.95 

550 132 Column 19 CPS 


439.95 

770 132 Column 36 CPS 


895.00 

Olympia 132 Column 14 CPS with Form and Tractor 


399.95 

Apple/Franklin Printer Interface w/Graphics and Cable 


. 84.95 

Printer Cables 

19.95 

Printer Paper — Microperf Edge 1000 Sheets 


. 16.95 


ELECTRICAL 

Surge Protectors — Line Filters — SL Waber — 6 Outlets with Switch $ 39.95 

Uninterruptable Power Supplies 399.95 


ALL IN-STOCK ITEMS SHIPPED WITHIN 24 HOURS. SAME DAY SHIPPING 
PROVIDED BY REQUEST WITHOUT ANY EXTRA HANDLING CHARGES. 


MISCELLANEOUS 



Diskettes in 10 Pack 


10.95 

Twoprint Switches 

from 

99.95 

Disk Drive Cables 

from 

16.00 

Maintenance Cleaning Kits 


12.00 

Parallel Printer Buffers 8K 


149,95 

Floppy Disk Drive Cables 



1 Drive 


16.00 

2 Drives 


18.95 

Heath/Zenilh 2 Drive Cables — Shielded 


24.95 



SOFTWARE SUPPORT, INC 

1 Edgell Road, Framingham, MA 01701 (617) 872-9090 Telex-383425 

Hours: Mon. thru Fri. 9:30 am to 5:30 pm (E.S.T.) Sat. 10 am to 3:30 pm 
SERVICE POLICY — Our Professional Technical Staff Is Available To Assist You Monday Through Saturday. 
WARRANTIES — Up To One Full Year Parts And Labor. Floppy Disk Drive Power Supplies — Five (5) Years. 
SERVICE — 24 Hour Turn-A-Round On All In-Stock Parts. Dealer Inquiries Invited. Call 617-872-9090 

Please Call For Shipping, Toll Free 1-800-343-8841 

Prices and Specifications May Change 

Handling And Insurance. Please Call For Our Latest Price Saving Specials. without Notice. 




to set video mode 2. This mode estab- 
lishes an 80-by-25 monochrome char- 
acter display and causes the subroutine 
just patched to be executed. This sets 
the new colors for your monitor. 

Conclusion 

The Tandy 2000 color display is a 
super monitor; being able to use the 
full color potential in all modes really 
lets you get the most from your 
computer. SETC0L0R provides a safe 
and easy method to change the colors 
and prevents you from potentially 


destroying your valuable disks. 

This method of changing colors will 
work with most software for the Tandy 
2000. The exceptions to this rule fall 
into two categories: those programs 
that must work in the color graphics 
mode, such as Microsoft’s Word , and 
those programs that set the monochrome 
ports themselves, such as Lotus 1-2-3 
and Open Access. 

Other software, such as WordPerfect , 
can be installed in the monochrome 
mode running in the full-color mode 
and allowing full use of attributes, such 


as on-screen underlining. Software 
which automatically selects the mo- 
nochrome text modes (for example, 
MultiMate) will now run in full color. 

Once you get familiar with DEBUG, 
the code sequence generated for the COM 
file can be entered directly using the 
assemble (R) command or enter (E) 
command. The code may then be 
written to a disk file using the write 
(U) command for later execution. You 
can easily change colors at any time. 
Enjoy your color Tandy 2000 to its 
fullest! 
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450 LSET C$=CHR$ (CLR . 1 ) : PUT 
460 LSET CI=CHR* (CLR. 2) : PUT 
470 LSET C*=CHR*(CLR.3) : PUT 
480 LSET C$=CHR* (CLR. 4) : PUT 
490 CLOSE 


500 

END 





510 

A* = 

il II 




520 

WHILE 

. A$ = " 

x> 

** 

il 

I NKE Y$ : 

WEN 

530 

IF ASC(AI) 

=13 THEN RETURN 

540 

IF A* 

: > n " 

0" AND 

A* < = 


550 

A$=CHR$ ( ASC (A$) 

AND StHDF ) 

560 

IF A* 

: > s " 

A" AND 

A* < = 

II p M 

570 

GOTO 

510 




580 

DATA 

&H31 , 

&HC9 



590 

DATA 

&H8E , 

&HC1 



600 

DATA 

&HBB , 

8eH29 , 

StH 0 1 


610 

DATA 

&H8A , 

St H D 7 



620 

DATA 

&H26 , 

&HA2, 

&HF3 , 

&H1B 

630 

DATA 

&H8A , 

&H47, 

&H01 


640 

DATA 

&H26, 

&HA2 , 

&.HF9 , 

&H1B 

650 

DATA 

&H9A, 

fcH47, 

&H02 


660 

DATA 

&H26 , 

&HA2, 

StHFF , 

&H 1 B 

670 

DATA 

&H8A , 

&H47 , 

&H03 


680 

DATA 

&H26 , 

StHA2, 

&H05 , 

ScHIC 

690 

DATA 

&HB8, 

&H02 , 

StHOO 


7 00 

DATA 

?<HCD , 

&H10 



710 

DATA 

StHCD, 

H 2 0 




THEN CLR=ASC(A*)-55: OUT PORT. REG, CLR: GOTO 510 


m m 



Introducing... 

The Largest Selection of High Quality Battery-Powered Peripherals 

Take Your Pick . . . With You! 


ThinPrint 80 


ThlnWrite 80’ 


ThlnType 80’ 


ThinView 25’ 


40 CPS Thermal Dot 
Matrix Printer with Hi Res 
Graphics. Silent. 

Built-in Paper 
Compartment. 

5 lbs. 


50 CPS Dot Matrix impact 
Correspondence or 
Near Letter Quality, 

Prints 3-part Forms and 
PC. Graphics. 

6 lbs. 


15 CPS Bi-Directional 
Letter Quality Impact 
Printer, fully Formed Char. 
Internal A/C 
Charge/Adapter. 

7 lbs. (5 lbs. optional) 


80 Char, x 25 Line LCD 
Intelligent Display 
System, 

Optional Tactile input. 
Bit Image Graphics. 

2 lbs. 


Built-in Rechargeable Batteries save you time and dollars in replacements. 
Proven parallel and serial interfaces on Ml 00, PX-8, 2C, HP-IL and mdny others. 


Call Toll Free 800 - 821-7093 or 801-582-9271 

DEALER INQUIRIES INVITED 


The Portable Peripherals People 
417 Wakara Way. S.L.C., Utah 84108 
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Text processing power that no other program can equal. 



on Snap-in™ Cartridge $149.95 

PCSG says “Send it back in 30 days for a full 

refund if you don’t agree.” 


WRITE ROM is the definitive word pro- 
cessing extension for the Model 100. Less 
than two months after the Model 100 was 
announced Portable Computer Support 
Group introduced the very first text format- 
ter for the Model 100. That program, called 
Write + was licensed to Tandy and is now 
in Radio Shack Computer Centers as Scrip- 
sit-100. Write + had many powerful fea- 
tures and most reviewers still say it is the 
best of the cassette based text formatters. 
But now eighteen months later PCSG has 
introduced WRITE ROM. Those who ex- 
perience it have said “WRITE ROM liter- 
ally doubles the text processing power of 
the Model 100.” 

WRITE ROM is what you would have 
expected PCSG, the software leader for the 
Model 100, to develop in the 18 months 
since Write -I- was brought to the market. 

First of all WRITE ROM as its name 
implies is on a snap-in ROM. You simply 
take a quarter and open the little compart- 
ment on the back of your Model 100 and 
press in the ROM cartridge. It is as easy as 
an Atari game cartridge and can be snapped 
in and out instantly so that you can use 
other ROM programs whenever you wish. 


WRITE ROM appears on the main menu 
just like one of your built in programs. It 
lets you do every formatting function you 
would expect like setting margins, center- 
ing, right justifying and having headers and 
footers. But it does them under function 
key control, with the clear and easy to learn 
and use techniques for which PCSG has 
become famous. 

In keeping with PCSG’s long standing 
reputation for superlatively simple yet 
comprehensive documentation, the manual 
is a model of lucidity. 

WRITE ROM remembers your favorite 
format settings so that you can print a docu- 
ment without any set up, but you can 
change any formatting or printing parame- 
ters instantly with a function key. 

WRITE ROM’s ‘pixel mapping’ feature 
shows you an instant picture on the screen 
of how your printout will look on paper. 
Incidentally, PCSG introduced this feature 
on the Olivetti M-10 version of Write + 
over a year ago. 

In all there are 44 separate features and 
functions that you can do with WRITE 
ROM, and some of these features are truly 
breakthroughs for the Model 100. 


First, WRITE ROM lets you do search 
and replace, with function key ease of 
course. Any word or phrase in a document 
can be searched for and replaced with any 
other phrase where the search words 
appear. 

Second, WRITE ROM lets you send any 
text (formatted or not) to any other comput- 
er over the phone with just a function key. 
What’s more, it dials and handles sign on 
protocol automatically. 

Third, WRITE ROM has a wonderful 
feature called ‘Library’ that gives your 
Model 100 power that you never thought it 
could have. Library lets you record favorite 
phrases, words, or commonly used ex- 
pressions (sometimes called boilerplate). 
Any place you wish any library text to 
appear in your document you just type in a 
code. WRITE ROM automatically inserts 
the text just like a Xerox Memory Writer. 

The library phrase is inserted as your 
document is being printed rather than as it 
is being typed, so this feature conserves 
memory in documents where a long phrase 
is used repetitively, since each occurrence 
of a library phrase in your document is 
indicated by a single code character. 


This Library feature is so powerful these 
two pages could be devoted just to telling 
you about things it can do. For example, 
you can have names and addresses that you 
designate in one text file with a customer or 
supplier number. Or you can have inven- 
tory items with stock numbers. 

In your document you simply type in the 
customer or stock number and that entry 
from the other file is automatically inserted 
in the document. Picture what you can do 
with that kind of capability. 

Because WRITE ROM is written in 
machine code, it is blindingly fast. No one 
can claim faster operation. 

Because it is on a ROM it uses virtually 
none of your precious RAM for its opera- 
tion, and it does not interfere with other 
machine code programs in your RAM. It 
works with any printer, serial or parallel. 
At the touch of a function key you can find 
the size of a RAM file in bytes and in words 
(ideal for journalists and other writers who 
need to know how many words are in a 
piece). You can make a duplicate copy of a 
document file under a new name. You also 
can rename or delete (kill) any RAM file 
with function key ease. 

This description only scratches the sur- 
face of this amazingly powerful piece of 
software. You can automatically insert the 
date or the time anywhere in your 
document; WRITE ROM senses when you 
are nearing the bottom of a page, and at 
your command will start a new paragraph 
on the next page. 

Write + was the Model 100 pioneer in 
the use of ‘dot commands’ to allow control 
of such things as margins, centering, line 
spacing and other appearance related 
changes in the middle of a document. 
WRITE ROM goes a step further by mak- 
ing all the dot commands Wordstar com- 
patible. This means that if you wish you 
can quite easily prepare a Wordstar com- 
patible document. Then you can use fea- 
tures of WRITE ROM (such as pixel 
mapping) that Wordstar lacks, before up- 
loading to your desktop. 

A Mail Merge feature allows you to send 
the same document to every name 
on your mailing list, personalized for each 
recipient. 

WRITE ROM enables you to do under- 
lining, boldface and correspondence mode 
as well as any other font feature that your 
printer supports in a way that is so unique 
many users say “It is worth the price of the 
program just to have this one feature.” 
Here’s how it works: When you want to 
underline you don’t have to remember 


some complicated printer code. You just 
type Graph-U, and to end underline you 
just type Graph-U again. For boldface it’s 
Graph-B and to end boldface it’s Graph-B 
again. It’s easy to remember and easy to 
do. WRITE ROM lets you record the codes 
from your printer’s manual one time only 
and then just use these easy to remember 
signals any time you want to do a printer 
font feature. 

WRITE ROM does so many things that 
other text formatters cannot do. For exam- 
ple you can not only double space but tri- 
ple, quadruple or any other. 

WRITE ROM allows you to use your 
TAB key in a document so that you can 
indent the first line for a paragraph easily or 
space rapidly over many tab stops. 

WRITE ROM has another nice feature. 

It allows you to undent. This means that 
you can have paragraphs that have a first 
line that projects to the left of the remainder 
of the paragraph. 

WRITE ROM allows you to not only 
center a word or phrase on a line but you 
can center copy vertically on a page as 
well. 

WRITE ROM has a feature that is 
unique to any word processor on any com- 
puter. It is called FORM. FORM is an 
interactive mechanism that lets you create 
screen prompts so that you or someone else 
can answer them to fill out forms, or supply 
information like to a questionnaire or 
answer correspondence rapidly inserting 
personal answers into a form letter. 

It works sort of backwards from Library 
or boilerplate. As you recall, with the Li- 
brary feature you type a code into a docu- 
ment and when you print, that phrase or 
word or paragraph is picked up from the 
Library file and inserted into the printed 
document. With FORM when you print, 
anyplace where you had previously typed 
in a GRAPH T in a document, the printer 
will stop and you are shown a prompt on 
the screen. You can type in directly on the 
screen and when you press ESC, what you 
typed is sent to the printer formatted like 
the rest of thfe document. 

What is really great is that you created 
those prompts that appeared on the screen. 
By the way, the prompts won’t appear in 
the printed document unless you want them 
to, and you don’t have to be connected to a 
printer, you can write your completed 
forms to RAM files if you wish. 

Think of how you can use FORM. A 
doctor or nurse could use it for a patient’s 
history with each question appearing on the 
screen. An insurance salesman could have 


his entire questionnaire, or a police depart- 
ment could do a complete arrest report. 
You can construct a series of prompts to 
answer correspondence, automatically in- 
serting the answers into a generalized letter 
format for a given type of correspondence, 
like customer service. This feature lets you 
answer letters in a rapid tire fashion each 
one with its personalized responses. 

Before WRITE ROM you had to be a 
programmer to create a series of prompts to 
answer questions or record information. 
Now it is as simple as typing Graph T. 

There are many other examples of excel- 
lent programming evident in WRITE 
ROM. The line feed problem of the Model 
100 is dealt with by the simple use of a 
function key. Files are selected by moving 
the wide bar cursor over the WRITE ROM 
menu. 

PCSG makes the claim that WRITE 
ROM is the easiest, fastest and most fea- 
ture rich text formatter for the Model 100, 
as well as being the only one on a Snap-in 
ROM. You can do more with WRITE 
ROM than anyone thought possible for the 
Model 100. We at PCSG are happy to offer 
WRITE ROM because it expands the Mod- 
el 100 to a dimension of text processing you 
cannot equal on even larger computers. 

If you are already a PCSG customer you 
know the impressive quality of PCSG 
craftsmanship. We brashly state that 
WRITE ROM is the best you can buy. But 
don’t take our word for it. It is sold on a 
thirty day trial. If you aren’t as excited as 
we are, return it within 30 days for a full 
refund. Priced at $149.95, on Snap-on 
ROM. Mastercard, Visa or COD. 

PORTABLE 

GOMRJTER 

MWORT 

ORQJP 

11035 HARRY HINES BLVD. No. 207 
DALLAS, TEXAS 75229 

PCSG provides hotline software support for Model- 100. Call 
1-214-351-0564. Available now directly from Portable Computer 
Support Group. We endeavor to continue as The Leader in Soft- 
ware for the Model 100. 
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Confessions of an ASCII bigot 


High Praise 
for 

Sequential Files 


By William Barden, Jr. 
PCM Contributing Editor 


1 11 admit it, I’m an ASCII bigot. I 
hate encoded files that won’t print 
out or display in understandable 
text characters. I use My Word! (TNT 
Software) because it doesn’t use encod- 
ing such as WordStar - everything is 
in nice, displayable characters. I’ve even 
taken to saving all my basic programs 
in ASCII. Why use ASCII? It’s just so 
darn easy to process the text files in 
a variety of different ways. Let me give 
you an example . . . 

I had contracted with a small pub- 
lisher for two books, one on the Tandy 
1000, 1200, and 2000 and the other on 
the IBM PC and (ugh!) PCjr. Along 
with generating the manuscripts for the 
books, I had also agreed to insert minor 
typesetting commands into the text. 

It turned out that the publisher’s 
interpretation of “minor” and my 
version of “minor,” differed greatly, as 
I was to find out. I wrote up about 10 
double-spaced manuscript pages for 
samples, and then, manuscript in hand, 
went in to see the publisher’s rep- 
resentative. 


(William Barden, Jr., is a master 
communicator in a field in which he 
is one of the few recognized experts — 
microcomputers. A prolific author of 
more than 27 books and handbooks on 
computers and computer programming. 
Bill also has authored several instruc- 
tional software projects for Tandy / 
Radio Shack.) 


After the usual pleasantries, we got 
down to the business of how to edit 
the word processing files to the type- 
setting format. 

“The first thing you’ve got to insert 
is a special code that tells the typesetter 
which font (type style) to use,” the 
publisher’s man said. “Just use a *// 
F’ followed by the font number. Every 
heading, boldface, or command needs 
the font command.” 

“That doesn’t sound too bad,” I 
ventured. 

“Most characters won’t give any 
problems,” the publisher’s man went 
on. Of course, there are a few characters 
the typesetter won’t recognize, or that 
will require some kind of special 
action.” 

“Sounds reasonable enough,” I said, 
thinking of German umlauts and 
French accent graves. 

“For example, a left bracket and right 
bracket can’t be used — you’ll have to 
substitute / /CHLB and //CHRB 
instead. The greater than sign and less 
than sign become //CH23 and // 
CH34.” 

“Clever mnemonics on the greater 
than and less than signs,” I joked, 
noticing for the first time how hot it 
was in the office. 

“And the pound sign, asterisk, back 
slash, and arrows all need special 
coding,” he went on. 

I was starting to perspire. Well, a 
simple search and replace operation on 


My Word ! would do the substitutions 
with no problem. 

“Anything else?” I queried. 

“The plus and equals signs typeset 
just fine,” he stated. 

“Great!” I said, thanking the deity 
of my choice and waiting for the punch 
line. 

“Of course, they do reset the font in 
use to FI — you’ll have to add a / 
/ F4 or // F5 after each plus or equals, 
unless you’re in bold, in which case 
you’ll have to use / / F6.” 

Now I was really sweating, envisioning 
more time at the keyboard to put in 
the blasted typesetting commands than 
to write the material to begin with. 
“And, of course, leading double quotes 
must be / /“, but trailing double quotes 
must be ”. 

I wrung out the front part of my shirt, 
diluting my decaffinated. 

Here’s a sample of the manuscript 
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before inserting the typesetting com- 
mands and after,” the publisher’s man 
went on. 

I glanced down at the proffered 
samples, in anticipation, and then in 
horror, as I compared them. What I 
saw is shown below: 

(The basic Word Processing Text) 

LET Statement 

SYNTAX: 

LET variable=expression 
APPLICATION: 

Used to assign a value to a numeric 
variable or equate a string variable to 
a string constant or variable. 

EXAMPLES: 

100 LET ARC=12.34*NEWT 
Numeric variable A is set equal to 
12.34 times the value of variable 
NEWT. 

200 LET NEXTN$=NAME$+7” 


String variable NEXTNS is set equal 
to the string formed by NAMES plus 

«« j ** 

(The Text After Typesetting Commands 
Were Added) 

//LT 

/ / UF1 LET Statement/ / LT 
//UFR//LT 

^/\/\^LET variable= / / F3expression / 
/LT 

//UF2//LT 

/ / UF3 APPLICATION: / / LT 
//UF4Used to assign a value to a 
numeric variable or equate a string 
variable to a string constant or variable. 
//LT 
//LT 

/ / UF3EXAMPLES:/ / LT 
//LT 

//UF5100 LET ARC=//F312.34// 
CHPSNEWT//LT 

//UF4Numeric variable A is set equal 
to 12.34 times the value of variable 


1000, 1200, 2000 


NEWT.//LT 

/ / UF5200 LET NEXTN$=// 
F3NAME$+//F3//”/7/LT 
//UF4String variable NEXTNS is set 
equal to the string formed by NAMES 
plus / /”/”./ /LT 

What had I gotten myself into? I 
wondered, as I stumbled from the 
office. Should I simply cancel the 
contracts? This was editing beyond the 
call of duty . . . 

However, later, in the cool, reflective 
recesses of my computer room, sequen- 
tial file processing came to mind. The 
manuscript was simply in the form of 
a text file on disk, wasn’t it? That file 
could be read in by BASIC statements 
and each line processed. A simple 
translation would replace special char- 
acters with any string, and I could use 
the logic of a BASIC program to detect 
special conditions, such as which font 
was currently in use. I set out to code 
the processor. Three days later, I 
stumbled out of the computer room, 
bloodly yet unbowed, with a program 
that automatically converted a plain 
text file into one containing the required 
typesetting codes. Profound? No. 
Something that you can do quite easily 
— Ill show you how. You can use the 
same technique for replacing basic 
commands, such as PRINT to LPRINT, 
for embedding printer control codes for 
various printers in text files to be 
printed, for counting words and making 
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MAIL ORDER OFFER 

$49.95 

(plus $5.00 postage and handling) 

For Visa, MasterCard or American Express 
call 31 2-236-8473-ext PCM 


Or send check or money order to: 
BLACKHAWK DATA CORP. 

307 North Michigan Avenue, Dept. PCM 
Chicago, Illinois 60601 


“Faithful renditions ... we were astonished!’’ 

— James Langdell, PC Magazine 


Perfect Pitch 
for PC 


The Premier Music Composition 
System for the IBM PC 

TuneSmith/PC M is the first true music de- 
velopment software for your IBM PC or 
compatible. It can create and play music 
with a melody line played above harmonic 
chords. 

FOR THE MUSIC STUDENT, 

TuneSmith/PC v can help you study music 
theory. Combine compositions with games 
and other programs, or make the PC part of 
your electronic band. 

FOR THE COMPUTER HOBBYIST, 

TuneSmith/PC ,M will turn your PC into a 
musical instrument. It’s a great way for the 
whole family to discover their hidden musical 
talents. Ten sample tunes included. 

FOR THE ARMCHAIR COMPOSER, 

TuneSmith/PC rv plays back musical pas- 
sages in a variety of tempos and pitches. 
Forty special function keys make composing 
faster and easier. Built-in HELP screen: 


The system includes a complete spectrum of 
commands for every music editing function & 
provides a continuous display of information 
about the music being played. Friendly 
beeper warns you of musical errors. 

Requires IBM PC, XT, AT, Jr. or compatible with 
96K, 1 single-sided drive, 80 column display. 


up lists of words from text files, for 
changing upper- to lowercase and vice 
versa, and for any special processing 
that operates with a text file. 

Sequential File Makeup 

All BASIC files, almost all word 
processing files, and many other files 
are sequential files. Sequential files have 
to be read from beginning to end — 
you cannot simply go into the file and 
pick out the 100th record, as you can 
with random files. Although at first 
glance it would seem that random files 
have a lot to offer because of the ability 
to pick out any record, sequential files 
are usually more compact than random 
files. In addition, many applications 
lend themselves to a sequence of data 
— word processing lines and BASIC 
lines, for example. In these applications 
and many others, you want to read 
through the file from beginning to end. 

Each file is made up of a number 
of records. Imagine a personnel file 
folder containing a separate form for 
each employee at a company and you 
have the idea. The form (record) itself 
might contain fields for “name,” 
“address,” “phone number,” “social 
security number” and the like. These 
fields are very well defined and usually 
fixed-length in a random file, but may 
be variable length in a sequential file 
record. Of course, for some files the 
records contain no fields, as is the case 
of a word processing file. 

Generally, a record in a sequential 
file corresponds to a single line on the 
screen or several screen lines up to 255 
characters. 

All of the characters in a sequential 
file are typically ASCII characters. 
ASCII characters have codes of 0 
through 127. Most of the characters in 
this range are “normal” text characters 
such as A, z, 7, &, or N. The characters 
from 0 through 31 are special “control 
code” characters which are displayable 
as those funny “happy faces” and 
similar symbols. These are not standard 
symbols for the control codes, but just 
the ones IBM happened to like. Certain 
control code characters cause display 
or printer actions, such as 7 (beep), 9 
(tab), 10 (line feed), 1 1 (home), 12 (form 
feed), 13 (carriage return), 28 (cursor 
right), 29 (cursor left), 30 (cursor up), 
and 31 (cursor down). 

The codes from 127 through 255 are 
not ASCII codes, but will display, either 
as “European” characters, graphics or 
line characters, Greek symbols, or 
special symbols. These codes are also 
allowed in sequential files. Any character 


in a sequential file can be a value of 
0 through 255, all possible combinations 
of 8-bit data values. Any disk file can 
be TYPEd out to display its contents, 
but files containing non-standard codes 
will display as garbage, although given 
an infinite number of Tandy 1000s and 
an infinite number of Tandy product 
managers, “Canterbury Tales” would 
probably appear on the screen around 
July of 1995. 

Tricks with Sequential Files 

One of the easiest ways to generate 
a sequential file is to use the COPY 
command in MS-DOS: 

R>C0PY CON FILE1 

After entering this command, every 
keyboard line will generate a disk file 
record for file “FILE 1 . ” Pressing ENTER 
at the end of each line causes the next 
record to be written out. Pressing the 
F6 function key followed by ENTER will 
terminate the file. The CON is the 
mnemonic for the system “console” 
device, in this case the keyboard. 

“Redirection” of output devices in 
MS-DOS will also create sequential 
ASCII files. To create an ASCII file 
that contains a directory listing, for 
example, you’d do: 

R>DIR >FILE1 

The resulting file would contain all 
of the character data that would 
normally appear on the screen. This 
data could then be processed as a 
sequential file. You might, for example, 
merge and alphabetize several directory 
listings using the sequential file tech- 
niques we’re about to discuss. 

BASIC programs can be stored as 
sequential ASCII files by using the “,A” 
option when saving programs to disk. 
The resulting files can be edited by a 
word processing program, provided 
that your word processor can read in 
pure ASCII files and write out pure 
ASCII files. Remember that all BASIC 
lines must be on one logical line when 
editing BASIC files. This edited BASIC 
line, 

3100 PRINT82 , TT$ ( J ) ; : PRINT "X": 
ZR$=R I GHT$ ( ZR$ , LEN ( ZR$ ) - 
LEN(ZB$) ) : IF (ZR$="") 

RND ( ZD=1 ) THEN 3200 


on four separate logical lines, will give 
a “Direct statement in file” error when 
you try to load the edited BASIC 
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program as the second line is en- 
countered. 

EDLIN also produces sequential 
ASCII files that can be further manip- 
ulated by BASIC or the proper word 
processing program. 

Reading in Sequential Files 

The steps for reading in a sequential 
file in BASIC are simple. First, the file 
must be opened by a BASIC OPEN 
statement. Next, a LINE INPUTtt can 
be done to read in a record of the file 
(usually a single screen line) at a time. 
Finally, a CLOSE is done to properly 
terminate the file operation. Here’s a 
piece of code that will open a given file 
and display all the records on the screen: 

100 INPUT "File Name : " , FILNMS 

110 OPEN FILNM$ FOR INPUT RS ttl 

120 IF EOF ( 1 ) THEN 160 

130 LINE INPUTttl, RECORDS 

140 PRINT RECORDS 

150 GOTO 120 

160 CLOSE 

In fact, this program is really just an 
emulation of the DOS TYPE command 
in BASIC. The “# 1” refers to a buffer 
number associated with a file. Several 
files may be opened at once, each with 
its own “buffer” or storage area. 
References for reads or writes are then 
done to the buffer number and not to 
the file name. 

The LINE INPUTttl command reads 
in the next record of the file OPENed 
for buffer number one. Commas and 
other characters, which would ordinarily 
delimit variables in a sequential data 
file are read in as well. LINE INPUT is 
a kind of “read everything on the line” 
command. The EOF command is a 
special command that senses the last 
record of the file. If the last record has 
already been read, the EOF function is 
true, otherwise it’s false. EOF is an 
automatic way of detecting the end of 
a file without having to know the actual 
number of records in the file, or some 
special code associated with the end of 
the file. 

The code above is only equivalent to 
TYPE, but here’s the difference — any 
amount of processing can be inserted 
after the LINE INPUT. You could, for 
example, avoid printing lines starting 
with the characters “REMARK : ” 

100 INPUT "File Name: ",FILNM$ 
110 OPEN FILNM$ FOR INPUT RS ttl 
120 IF EOF ( 1 ) THEN 160 
130 LINE INPUTttl , RECORDS 
140 IF LEFTS ( RECORDS ,6 ) ^'RE- 


MARK" THEN 150 ELSE PRINT 

RECORDS 

150 GOTO 120 

160 CLOSE 

Writing Out Sequential Files 

Writing out sequential files is about 
as easy. Here’s a code segment to write 
out each keyboard line as a disk file: 

100 INPUT 'Tile Name : ",FILNM$ 
110 OPEN FILNMS FOR OUTPUT RS 
ttl 

120 LINE INPUT; RECORDS: PRINT 
130 IF RECDRD$="***" THEN 150 
ELSE PRINTttl, RECORDS 
140 GOTO 120 
150 CLOSE 

Again, the file is OPENed, but this time 
for output. A PRINTttl then writes the 
entire line entered from the keyboard 
as the next record. The CLOSE here is 
absolutely necessary, as it “flushes” the 
buffer of the last remnants of data. 
(Records are “blocked” for disk read 
and write operations.) 

Generally, any BASIC statement that 
will screen display or read operations 
from the keyboard can be turned into 
an equivalent disk file operation simply 
by attaching a pound sign to the 
statement and adding a buffer number. 
The character data will be sent to or 
from the disk instead of the screen or 
keyboard. 

Simultaneous Reads and Writes 

The key to processing sequential files 
is to do both a read and write operation. 
This can be done by using two buffers, 
one for the read and one for the write. 
An example is shown below. This code 
opens one file, reads in records one at 
a time, and writes out records to a 
second file, throwing “CAUTION” 
records to the winds. After the last file 
has been read, the code closes both files 
by a blanket CLOSE: 

100 INPUT "Input File Name: ",F1$ 
110 INPUT "Output File Name: 

" , F2S 

120 OPEN FIS FOR INPUT RS ttl 
130 OPEN F2S FOR OUTPUT RS tt2 
140 IF EOF ( 1 ) THEN 180 
150 LINE INPUTttl, RECORDS 
160 IF LEFTS ( RECORDS , 7 ) ="CAU 
TION" THEN 150 ELSE PRINTtt2, 
RECORDS 
170 GOTO 140 
180 CLOSE 

The resulting second file will be 
identical to the first except that all 
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Contributions to PCM are wel- 
come from everyone. We like to run 
a variety of programs which will be 
useful/helpful/fun for other Tandy 
Portable and MS-DOS computer 
owners. We now support the Model 
100, the Tandy 200, and the Tandy 
models 2000, 1200 and 1000. 

Program submissions must be on 
tape or disk, and it is best to make 
several saves, at least one of them 
in ASCII format. We’re sorry, but 
we do not have time to key in 
programs. All programs should be 
supported by some editorial com- 
mentary explaining how the pro- 
gram works. Generally, we’re much 
more interested in how your sub- 
mission works and runs than how 
you developed it. Programs should 
be learning experiences. 

Pay for submissions is based on 
a number of criteria. The rate of 
remuneration will be established 
and agreed upon prior to 
publication. 

For the benefit of those who wish 
more detailed information on mak- 
ing submissions, please send a 
SASE to: Submissions Editor, 
PCM, P.O. Box 385, Prospect, KY 
40059. We will send you compre- 
hensive guidelines. 

Please do not submit programs 
or articles currently submitted to 
another publication. 

If you feel qualified to review 
software and / or hardware products 
for computers covered in PCM, send 
us your name, address and phone 
number; we will send you a ques- 
tionnaire form and a copy of our 
reviewer guidelines. 
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records starting with the letters “CAU- 
TION” will have been deleted from the 
second file. 

What you do between the LINE 
INPUT# and PRINT# commands is up 
to you. You may process the records 
any way you wish, scanning for and 
reporting on character strings, substi- 
tuting characters, deleting characters, 
and the like. Remember that most files 
will have records of variable length. Use 
the LEN statement to find the input 
record length, and then process the 
records using the LEFT$, RIGHTS, and 
MIDS string commands. 

A Translate Program 

I’d repeat the program for converting 
manuscript text into typesetting here, 
but it’s much too long and not generic 
enough, unless you happen to have a 
Itek 1200 typsetter. However, I do have 
a modest example of another program 
that uses this concept and might prove 
valuable to you. It’s called TRANSLTE, 
and is shown in Listing 1. 


TRANSLTE translates characters 
from an input disk file to characters 
for an output disk file. Using 
TRANSLTE , you can do a “search and 
replace” on all occurrences of “dross,” 
changing it to “gold.” You can also do 
a delete of any character string, deleting 
all occurences of “windy weather,” for 
example. In addition, you can do the 
search and replace or search and delete 
for up to 255 character strings. Each 
character string defined in the search 
or replace string may be from one to 
32 characters long. One example of how 
TRANSLTE might be useful is in 
reformatting text files for printing. All 
characters that are underlined could be 
changed to bold printing easily with 
TRANSLTE . In addition, all 255 
character sets can be redefined to 
another set of 255 characters by making 
the search and replace strings only one 
character long, enabling a simple 
translation or encryption of a file. 

111 first describe the operation of 
TRANSLTE and then describe some 


of the thornier points for your own 
implementation of this type of program. 

TRANSLTE uses two tables estab- 
lished by the user. One table is called 
the “From” table and the other is called 
the “To” table. Each of the two tables 
is 255 entries long or smaller. Each entry 
of each table is 0 to 32 characters (bytes) 
long. The From table defines characters 
to be found and the To table defines 
characters to be used to replace the 
From characters. A null entry in the 
To table deletes the corresponding 
From string. 

After TRANSLTE is loaded, a menu 
of six items appears. The first item 
establishes the From and To tables. A 
string of characters can be used for the 
From characters or a single character 
can be entered in either decimal (+XX) 
or hexadecimal (&HXXX) format. The 
decimal and hexadecimal formats allow 
characters that cannot be entered from 
the keyboard. Use a -1 to terminate the 
From table. From one to 256 entries 
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can be put into the table. The To table 
works similarly. 

Menu item six allows you to save the 
From and To tables as disk files. The 
extension .TO and . FRM will be used 
for the files created. Menu item two 
allows you to read in a previously saved 
table file. You can have as many 
translation tables as you like, calling 
them by different names. 

Once the tables have been read in, 
they can be listed by menu item five. 
The listing is done side by side so that 
you can see the From and To strings 
and check them for the proper strings 
or values in corresponding locations. 

Menu item four allows you to edit 
a table in memory. Specify an entry 
number from one to 250 and then enter 
a string or value as in establishing the 
table. The editing operates on only one 
entry at a time. 

The heart of the program is menu 
item three, which translates the From 
strings or values to the To strings or 
values. The program asks for both file 


names and then reads in each record 
of the From file, one at a time. 
TRANSLTE then searches the record 
for each From string, If found, the 
From string is replaced by the corres- 
ponding To string, if there is one, or 
deleted, if no To string exists. As each 
character in the file is processed, a 
period is printed if no From value was 
found, or an ‘X’ is printed for a 
replacement. 

TRANSLTE should be compiled for 
faster speed. Processing a 1000- word 
file with a From table of 10 entries of 
15 bytes and a To table of 10 entries 
of 15 bytes takes about four minutes 
to complete for the compiled version, 
but the interpretive version is four times 
slower. 

The Translation Code 

The actual translation is done in the 
3000 area of TRANSLTE. The From 
and To files’ names are first input and 
an OPEN is done for each. The OPEN 
here is an alternate form of OPEN - OPEN 


"0" is equivalent to OPEN XXX FOR 
OUTPUT and OPEN "I" is equivalent to 
OPEN XXX FOR INPUT. The second and 
third parameters are the file number 
and filename, respectively. File number 
1 (buffer 1) is used for the From file 
and file number 2 (buffer 2) is used for 
the To file. 

Variable 20$ is then initialized with 
32 bytes (characters) from the From file. 
The INPUTS statement used here is 
similar to the LINE INPUT8 statement 
except that it will read every character 
in the file, including control characters 
such as line feeds (10) and carriage 
returns (13). This is done to allow any 
character to be translated. Variable 20$ 
holds the current set of From characters 
to be compared — the number of 
characters in 20$ is always 32 for 
comparisons, as the maximum size of 
the replace string is 32 characters. 

Variable 2BS holds the current 
comparison string from the From array. 
The From array is called FTS. Variable 
J is used in a FOR loop to scan all of 
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the From strings to find a possible 
match for the 32 characters in ZRS. 
Variable ZB$ is loaded with each of the 
From strings in turn for comparison 
with the string in ZRS. The comparison 
is made based upon the length of the 
From string in variable ZB$ (IF 
ZB$OLEFT$(ZR$,LEN(ZB$) )). 

If the strings match, a From string 
has been found in ZR$. In this case, 
the corresponding To string in the To 
array, TTS is PRINTed out (to buffer 
2), and an ‘X’ is displayed on the screen. 
The From characters in ZRS are then 
discarded, starting from the left. This 
leaves from 31 to 0 characters in ZR$. 
ZRS must always have 32 characters for 
comparisons, so a series of IN- 


PUTS (1,81) of one character each are 
done to fill out ZRS to 32 characters 
once more. The search then restarts 
again, from the “top” of the From table 
for the new set of characters in Zfl$. 

If no strings match the characters in 
ZRS after a scan of the From array, the 
leftmost character of ZRS is PRINTed 
(PR I NTtt2 , LEFTS ( ZRS , 1 ) ) , a period is 
displayed for the no match condition, 
and the leftmost character from ZRS is 
deleted. One character is then read in 
and appended to the right hand side 
of ZRS by an INPUTS statement. ZRS 
is now 32 characters long once more, 
ready for the comparsion. 

Variable ZD is used to flag an EOF, 
or end-of-file condition. 


This process continues for the entire 
From file, with one character at a time 
rounding out the 32-character block for 
comparisons, and the entire From array 
being scanned for each new set of 
characters. There is a great deal of 
“overhead” in the logic, but the process 
executes fairly rapidly regardless. A 
conversion to assembly language, 
however, would speed up the execution 
by 50 times or more! 

Similar processing can be done for 
your own applications, using the basic 
input/ output structure described earlier 
in the article. 

Next month well have more to say 
about MS-DOS applications on the 
Tandy 1000, 1200, and 2000. 


2160 IF A$= " N " THEN 2240 

2170 INPUT "TO TABLE FILE NAME" ; A$ 

2180 IF RIEHT$(A*,3K>".T0" THEN A* = A$+".T0” 

2190 IF LEN(A$) >11 THEN 2170 
2200 OPEN 11 1 " , 1 , A! 

2210 FOR 1 = 0 TO 255: INPUT# 1 , TT$ ( I ) : PRINT "."j: NEXT I 
2220 CLOSE 1 
2230 TT = 1 

2240 ON ERROR GOTO 0 
2250 GOTO 150 
3000 ‘ TRANSLATE FILES 
3010 ZD=0 

3020 INPUT "NAME OF FILE TO BE TRANSLATED " ; A* 

3030 ON ERROR GOTO 12010 
3040 OPEN " I", 1, A* 

3050 ON ERROR GOTO 0 

3060 INPUT "NAME OF FILE TO RECEIVE TRANSLATION" ; B$ 

3070 IF A*=B* THEN PRINT "CANNOT BE SAME NAME": GOTO 3060 
3080 OPEN " 0 " , 2 , Bt 


Civilize the DISK/VIDEO INTERFACE • MAKE SAVAGE THE MODEL 100 


With DISK-BUDDY software for your DV/I, only function keys need touch your disk files! 


Twelve programs for one low price, work 
together to give the TRS-80 Model 100 unique 
disk file handling abilities. Access disk files 
from menu, just like a RAM file. Commands 
you were tediously typing become simple 
function key selections. And that’s just part of 
the power of the DISK-BUDDY PAK. It does 
things you can’t: 

• Create “superfiles” the length of the disk, 
over 170,000 bytes! 

• Print out, or display on either screen, or 
copy to disk or other device, a disk data file 
of any length, WITHOUT USING ANY 
ADDITIONAL RAM! 

• Furthermore, transfer records can be “fil- 
tered”, an example: 

An address file on disk can contain more 
than 1300 entries. You can move to 
RAM, or screen, or printer, etc., those 



records which contain “California” and 
“Tennis” or whatever. Four logical 
modes of search are available. 


• Also: Features to run, load, save, sort, kill, 
measure, append, and name, disk files and 
RAM files, and much more. 

PCM Magazine (March, ’85) said: . .an 

excellent buy ”... “manual is extremely 
well written'’ . . . “will substantially 
increase the speed and ease of operation of 
the M-100 with the D/VI. ” HZffwl 

That was the idea in the first place. 

TO ORDER THE DISK-BUDDY PAK 
(disk and manual): Send name, address, 
and check or money order for $39.95 plus 
$2.00 postage and handling to the address 
below. (For COD’s call: 212-243-2129) 



BuddySystems 

220 West 24th Street 
New York, NY 10011 
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3090 Z A$= I NPUT* ( 32 , # l ) 

3100 FOR J=1 TO VAL ( FT* ( 0) ) :ZB*=FT*(J) : IF ZB*< >LEFT* ( ZA* , LEN ( ZB* ) ) THEN 3150 
3110 PR I NT#2 , TT* ( J ) ; : PRINT “X";: ZA*-R IGHT* ( ZA* , LEN ( Z A* ) -LEN ( ZB* ) ) : IF <ZA*="") 
AND ( ZD= 1 ) THEN 3200 
3120 PRINT "X"; : IF ZD=1 THEN 3100 

3130 FOR K= 1 TO 32-LEN(ZA*): IF (EOF < 1 ) ) AND (ZA*="“) THEN 3200 ELSE IF EOF(l) T 
HEN Z D = 1 : GOTO 3100 

3140 ZA*=ZA*+INPUT*(1 , # 1 ) : NEXT K: GOTO 3100 
3150 NEXT J 

3160 PRINT#2,LEFT*(ZA*, 1 ) ; : PRINT " . " ; : Z A* = R I GHT* ( Z A* , LEN ( Z A* > - 1 ) 

3170 IF Z A* = " " THEN 3200 ELSE IF ZD = 1 THEN 3100 
3180 IF EOF ( 1 ) THEN ZD-1: GOTO 3100 
3190 ZA*=ZA*+INPUT* ( 1 ,#1 ) : GOTO 3100 
3200 PRINT: PRINT "FILE TRANSLATED" 

3210 CLOSE 1,2 
3220 GOTO 150 

4000 ' EDIT ONE OR BOTH TABLES 

4010 PRINT: INPUT "FROM TABLE (FT) OR TO TABLE <TT)";A* 

4020 IF A*="ft" THEN A*="FT" ELSE IF A*="tt" THEN A*="TT" 

4030 IF A*< > "FT" AND A*< >"TT" THEN 4010 
4040 GOSUB 12060 

4050 PRINT: INPUT "ENTRY # 1 TO 255"; I 
4060 IF I=-l THEN GOTO 150 
4070 IF I<0 OR I >255 THEN 4050 
4080 GOSUB 10000 

4090 IF A*="FT" THEN FT*(I)=ZA*: IF VAL (FT* (0) > <1 THEN FT* (0) =STR* ( I ) 

4100 IF A*="TT" THEN TT*(I)=ZA*: IF VAL (TT* (0) ) < I THEN TT* (0) =STR* (I ) 

4110 GOTO 4050 

5000 ' LIST THE FROM AND TO TABLES 

5010 PRINT "ENTRY TAB (7 ); "FROM" ; TAB (40) TO" 

5020 FOR 1*1 TO VAL(FT*(0)): PRINT TAB ( 3 ) ; I ; TAB ( 7 > ; FT* ( I ) ; TAB ( 40 ) ; TT* ( I ) : NEXT I 
5030 GOTO 150 

10000 ' INPUT VALUES SUBROUTINE 
10010 PRINT "ENTRY #"; I 
10020 ZA*= " " 

10030 FOR ZJ=1 TO 32 
10040 INPUT ZB* 

10050 IF ZB* = " - 1 " THEN 10120 

10060 IF LEFT* ( ZB* ,2) ="&H" THEN GOTO 10080 

10070 IF ZJ = 1 AND LEFT* (ZB*, 1 )<>" + " THEN ZA*=LEFT* ( ZB* , 32) : GOTO 10120 
10080 ZA=VAL (ZB*) 

10090 IF ( Z A < 0 ) OR ( Z A >255 ) THEN PRINT "ERROR. REENTER FROM START": GOTO 10010 
10100 ZA*=ZA*+CHR* < ZA ) 

10110 NEXT ZJ 
10120 RETURN 

12000 ' FILE NOT FOUND ERROR PROCESSING 
12010 IF ERR053 THEN ON ERROR GOTO 0: RESUME 
12020 PRINT "FILE NOT FOUND" 

12030 IF ERL=2090 THEN RESUME 2060 

12040 IF ERL=2200 THEN RESUME 2170 

12050 IF ERL=3040 THEN RESUME 3020 

12060 ' PROMPT FOR INPUT VALUE 

12070 PRINT "INPUT VALUES, EITHER IN NUMERIC FORM OR AS A CHARACTER" 

12080 PRINT "STRING. IF IN NUMERIC FORM, PREFIX A +SIGN. A -1 ENDS" 

12090 PRINT "ENTRY. IN EITHER FORM A -1 ENDS TABLE. UP TO 32 CHAR-" 

12100 PRINT "ACTERS OR VALUES MAY BE USED." 

12110 RETURN 

. t j 
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TANDY 
1200 HD 


Superior 


TANDY 

2000 


TANDY 

1000 

with 

DeskMate 
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We edged out the competition with 
better solutions... across the board. 


We work harder for 
your business. 

At Radio Shack Computer 
Centers, you’ll find more 
than just computers. You’ll 
find the right computer, 
backed with a complete line 
of software and accessories, 
as well as the best in cus- 
tomer support. 

The Tandy lOOO: 
more features than an 
IBM PC, for only $999. 

This is the one you’ve 
heard about. It’s compatible 
with the IBM PC, for one of 
the widest selections of soft- 
ware around. 

Your first six programs 
are on us. 

Unlike the PC, the Tandy 
1000 comes with its own 
software — DeskMate. 

DeskMate combines word 
processing, electronic filing, 
spreadsheet analysis, sched- 
uling, telecommunications, 
and electronic mail on one 
disk. So you can get right to 
work the very first day. 

Plus, the adapters you’ll 
need to use a monitor, 
printer, joysticks and light 
pen are all built in. These 
adapters, as well as MS-DOS 
and BASIC that also come 
with the 1000, are all extra 
cost options on the IBM PC. 

Or start with 
ten-megabytes for 
only $1999. 

The Tandy 1000 is also 
available with 256K and a 
built-in hard disk system for 
fast access to ten million 
characters of information. 

Best of all, the Tandy 
1000 HD computer costs 
the same as an IBM PC 
without a hard disk! 


The Tandy 1200 HD: 
a “mirror image’* of 
IBM’s PC XT for $1999. 

If you’re using the IBM PC 
XT, its $3895 price tag is 
probably doing a good job of 
holding back your expan- 
sion plans. What can you do 
about it? 

Expand affordably. 

The Tandy 1200 HD uses 
virtually every software 
package made for the PC 
XT. It’s expandable with the 
same hardware. Even the 
keyboard follows the same 
layout, with improved place- 
ment of the shift keys. 

So what’s the 
difference? 

It’s simple. The Tandy 
1200 HD costs $1,896 less 
than the PC XT. And we in- 
clude the printer adapter, an 
option on the XT. 

The Tandy 2000: 
the performance of 
IBM’s PC AT for $1599. 

Like the IBM PC AT, the 
Tandy 2000 offers two to 
three times the speed and 
two times the disk storage 
of IBM’s PC. 

The Tandy 2000 also of- 
fers twice the graphics reso- 
lution (640 x 400), with 
twice the colors of the IBM 
PC, for color charts and 
graphs that are nothing 
short of spectacular. 

The bottom line. 

At $3999, a PC AT is 
$2400 more than a 2-disk, 
256K Tandy 2000. In fact, 
you can get a complete 
Tandy 2000 system with 
color monitor and graphics 
for just $2757.90— still 
over $1000 less than an AT 
without a monitor! 


The closer you look, 
the better we look. 

Now if you’re thinking 
IBM’s personal computers 
cost more because of the 
support IBM is so famous 
for, think again. 

We offer a free customer 
support “hotline’.’ IBM’s tel- 
ephone support will cost 
you $40. Per call. 

We also offer low-cost de- 
livery and set-up, new-user 
orientation, as well as on- 
site training in all major 
markets. IBM doesn’t offer 
these customer support ser- 
vices to their PC owners. 

Get the edge on 
your competition. 

For the best in computers, 
software, training, support 
service and leasing plans, 
stop by any Radio Shack 
Computer Center. 

We have what it takes to 
sit down and talk business. 

Available at over 1200 

Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 

Radio /hack 

COMPUTER CENTERS 

A DIVISION OF TANDY CORPORATION 


\ 1 

I Send me a free copy of your 
1985 computer catalog. 

I Mail to: Radio Shack, Dept. 86-A-152 
I 300 One Tandy Center, Fort Worth, Texas 76102 I 

I Name J 

| Company I 

' Address 

I City | 


State Zip i 

Telephone | 

i i 


’Plus applicable use/sales tax. Radio Shack product pricing applies at 
Radio Shack Computer Centers and at participating stores and dealers. 
MS is a trademark of Microsoft Corp. IBM is a registered trademark of 
International Business Machines Corp. Pricing and service availability 
as of 5/1/85. 
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Graphics 

Feature 

1000,2000 


The Gallery 

By Wayne Sanders 


T his month’s Gallery program was 
originally written for use at the 
upcoming PCMfest. We thought 
we’d pass it along to you for your 
enjoyment. 

A few interesting techniques are used 
in the PCM logo program. Because it 
was made to to run on both the Tandy 
1000 and 2000 computers, the differences 
in the graphics resolutions of the two 
machines had to be overcome. The 
solution was to multiply all ‘X’ and ‘Y’ 
values and circle diameters by a variable, 
SR. If the program is running on a 


Tandy 2000, SR has a value of one and 
the ‘X,’ ‘Y’ and diameter values are not 
changed. If, however, it is running on 
a Tandy 1000, the values are all 
multiplied by .5 to scale down the 
graphics for the Tandy 1000’s lower 
resolution. 

The SR variable is also used in the 
timing loop in Line 1420. Since the 
Tandy 2000 is much faster than the 
1000, the variable is used in the loop 
to adjust the timing. This makes the 
time delay on both machines roughly 
equal. 

While the Tandy 1000 has lower 


resolution than the 2000, it is capable 
of displaying more colors simultaneous- 
ly. This is taken advantage of by using 
the CR variable to adjust the number 
of available colors. CR is seven for the 
Tandy 2000 and 15 for the 1000. 

If you have a Tandy 2000, change 
the first line of the program to read: 
1000 NODEL=2000. 

The Gallery is always seeking new 
talent. If you have a piece of computer 
art that you’re dying to share with the 
world, send it along to PCM. You may 
just see your masterpiece in these pages 
and a check for $50 in your mailbox! 
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1170 

Cl F; CL 

E <300*SR , 191 *SR 

! , 65*SR . 

,00,270* 

TS, 

3 5 0 * T S , . 6 

1180 

CIRCLE (3 00* SR , 1 39*SR 

) , 65*SR 

, CC ,0,90 

*TS 

, .6 

11.90 

LINE 

(340*SR,100*SR)- 

( 365*SR , 

, 150*SR) 

,cc 

» BF 

1200 

LINE 

( 340*SR , 1 80*SR > - 

( 3 6 4 * S R , 

, 200*SR ) 

,cc 

, BF 

1 2 1 0 

PAINT 

( 276*SR , 165*SR) 

,CC,CC 




1220 

LINE 

(380*SR , 100*SR) - 

(400*SR , 

, 230*SR ) 

, CC 

,BF 

1230 

LINE 

(370*SR, 210*SR! - 

( 4 1 0*SR , 

,230* SR ) 

,cc 

,BF 

1240 

LINE 

( 3 7 0 * S R , 1 0 0 * 3 R ) - 

( 430*SR , 

, 120*SR) 

,cc 

,BF 

1250 

LINE 

( 400* SR , 1 50 *SR ) - 

*. 4 3 0 * 3 R , 

, 2 3 0 * S R ) 

,CC 


1260 

LINE 

(430*SR , 100*3R ) - 

( 450*SR 

, 1 50*SR ) 

,cc 


1270 

LINE 

(450*SR , 150*SR> - 

( 47 0*SR , 

100* SR) 

,cc 


1280 

LINE 

( 430*SR , 230*SR ) - 

( 450*SR , 

,230*SR) 

,cc 


1290 

LINE 

( 450*SR , 230*SR ) - 

( 5 02* SR , 

1 0 0 * S R ) 

,cc 


1 300 

LINE 

( 470*SR , 1 00*SR ) - 

<530*SR. 

, 120*SR) 

,cc 

i BF 

1310 

LINE 

( 480*SR , 1 00*SR ) - 

( 5 2 0 * S R , 

2 3 0 * S R ) 

, CC 

i BF 

1320 

LINE 

i 470*SR , 2 1 Q*SR ) - 

( 530*SR . 

, 230*3R ) 

,cc 

t BF 

1 330 

PAINT 

i 4 5 0 * SR , 1 65*3R) 

,cc,cc 




1340 

CIRCLE ( 3 7 0 * S R , 200*SR 

) , 1 0*SR , 

, CC , 270* 

TS, 

0 * T S 

1350 

PAINT 

( 37 8 * SR , 208*SR) 

,CC,CC 




1360 

CIRCLE ( 4 1 0*SR , 200*3R 

) , 1 0*SR , 

, CC , 180* 

TS, 

270*TS 

1370 

PAINT 

( 402*SR , 208*SR ) 

,CC,CC 




1380 

X$= " THE PERSONAL COMPUTING MAGAZINE" 



1390 

LOCATE 18,40*SR-.5*LEN(X$> : PR 

TNT XI 



1400 

X* = "F0R TANDY COMPUTER USERS' 1 

1 



1410 

LOCATE 20,4Q*SR-.5*LEN(X$) s PR 

TNT X* 



14 20 

FOR I 

= 1 TO 2000* ( SR'"' 2 

) : NEX T I 

! : GOTO 1 

070 





EXPAND THE TANDY 2000® 
TO 


OF DOS ADDRESSABLE RAM 

Includes Ramdisk Software at No Extra Cost ... 

Add 640K of External RAM Memory to TANDY 2000’s® 
256K of Internal RAM Memory for a total of 896K of DOS Ad- 
dressable RAM. 

* Uses only one (1) External Memory Card Slot 

* RAMDISK Software is included with the price. 

b $650.00 for a 640K External RAM Mem- 
003131 ory Board (Includes RAMDISK Software) 
Call about our Trade-in Exchange option 
if you already use Tandy's 128K External 
Memory Board. 


for ordering 

and information call: 


(509) 627-5291 
Hours 9:00-5:00 pst 


. b We accept Check, MO, Visa, Mastercard 

terms: & COD. Add 7.3% sales tax in Wash. 

Add $3-shipping/handling f $5 foreign. 


TANDY 2000* IS A TRADEMARK OF TANDY CORPORATION 


ENVISION DESIGNS 

1903 ORCHARD WAY • RICHLAND, WASHINGTON 99352 



EPSON^RINTE^KGj 



• EPSON FX-85 DOT MATRIX PRINTER 
•ADJUSTABLE FORMS TRACTOR 
•TABLE TOP PRINTER STAND 
•EXTRA PRINTER RIBBON 
•CASE OF PAPER (1800 SHEETS) 
•PRINTER DUST COVER 
•INTERFACE CABLE 
(Specify Computer-Color computer 
add $50) 




The all new EPSON FX-85 dot 
matrix printer prints at a 
quick 160 characters per 
second, bidirectional logic 
seeking, PLUS a near letter 
quality made that prints high 
quality typewriter style let- 
ters. One year warranty! 

IDEAL FOR • TANDY 1000 • 
TANDY 1200HD • MODEL 4 


LIST - $599 

CDA - $469 


ORDER TOLL FREE 800-526*5313 


ORDERING INFORMATION AND TERMS: 

Mail to: CDA COMPUTER SALES 31 Marshall Hill Rd., west Milford, nj 07480 

include address and phone number. Shipping, handling and insurance are ad- 
ditional. Add 2% UPS Ground ($3.50 minimum) UPS Blue 6% ($5.00 minimum) 
NO C.O.D. Cashiers checks, moneyorders and credit cards ship immediately 
Personal and company checks allow 15 days. 

ORDER 9am-7pm EST Monday-Friday, Saturday 10-4 
our REFERENCES: we have been selling computers since 1977 and in computer 
Mail Order since 1980. Our bank is: First Fidelity, West Milford, NJ. D&B listed. 

ORDERS 800-526-5313 INQUIRIES & IN NJ 201-728-8080 
SATISFACTION GUARANTEED! 

If you're not 100% satisfied, return within (7) seven days for a full refund 
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Changes your Model 100 into a totally different 
computer with capability you never thought possible 



Infoworld 
rated Lucid’s 
performance 
“excellent” 


on Snap-In™ ROM 


PCSG says “Satisfaction Guaranteed 
or your money back within 30 days!” 


LUCID© is here now. It is on a ROM car- 
tridge that snaps into the compartment on 
the back of your Model 100. It takes no 
memory to load and no memory for operat- 
ing overhead. That means you have the full 
29.6k bytes free to store your data. 

First, LUCID© is memory conserving. It 
will let you build a large spreadsheet-255 
row by 126 column capacity. You build huge 
spreadsheets in your Model 100’s RAM that 
could consume 80 to 100K on a desktop 
computer. 

Secondly, LUCID© is fast. LUCID© is so 
rapid, a 36 column corporate financial 
statement took less than 4 seconds to 
calculate. 

Thirdly, LUCID© has features you won’t 
find in most other spreadsheets. For ex- 
ample, when you type a label (text) it will 
cross column boundaries; in other words 
when you type a label or title it will appear 
as you type it irrespective of column or 
width. LUCID© also allows you to set col- 
umn widths individually, and of course 
LUCID© has insert row and insert columns, 
as well as other standard features. LUCID© 
even lets your formulas refer to cells in 
other spreadsheet files. 

Further, LUCID© has what no other 
spreadsheet has: Cut, Copy, and Paste. It 
uses the same keys as Cut and Paste in 
TEXT, but here’s the difference: it takes all 
the formulas with it when you paste and 
they all automatically recalculate with the 
entire sheet. 

And here is what is really amazing. You 
can copy or cut from one spreadsheet and 
paste into another spreadsheet or even a 
TEXT file. 

LUCID©supports all BASIC math func- 
tions as well as Log, sine, cosine, tangent, 
exponentiation and other sophisticated 
math functions. 

LUCID© has so many features that you 
will say “this is what I need in a spread- 
sheet”, such as automatic prompting of an 
incorrectly typed-in formula showing just 
where the mistake was made. 


LUCID© has expanded “go to” functions 
that remember and produce a windowing 
capability. 

But perhaps most remarkable is that 
LUCID© is not only a spreadsheet but a 
program generator as well. First, LUCID© 
lets you protect all cells against entry or 
change, and then unprotect just the cells 
you want for someone else to use as 
input fields. 

LUCID© will not only process values, but 
text input as well so that the facts other than 
numbers can be responded to. LUCID© has 
the ability for you to refer in a formula to 
cells containing words. This feature com- 
bines with the capacity of doing “if then” 
statements that work by doing table look- 
ups against even massive X/Y charts of text 
or numerical information. You can produce 
a program that responds to inputs with no 
programming knowledge whatsoever. 

You can prepare a report section in your 
spreadsheet with instructions to your user 
for printout, and they can produce a person- 
alized printout that responds to their input. 
All your formulas and tables that did the 
calculations and provided the facts are in- 
visible to that user. LUCID© is useful for 
doctors for patient questionnaires, trouble- 
shooting technicians, purchase clerks, 
people doing job quotes, stores for custom- 
er workups, insurance agents and anybody 
who needs to process specific facts and 
numbers to produce a report based on 
those responses. 

LUCID© comes with a manual that ex- 
plains not only the characteristics of 
LUCID©, but will train you how to use a 
spreadsheet even if you have never seen 
one before. You are shown how to do 
budgets, forecasts, breakeven analysis 
amortizations and many other types 
of personal and business reports and 
calculations. 

User friendly is such an over-used term in 
this industry, but a typical comment has 
been “I have never seen a spreadsheet that 
does so much, and yet LUCID© is so much 


easier and faster to use.” 

LUCID© is a result of a most exhaustive 
developmental effort in which PCSG’s 
objective was to develop a spreadsheet 
that was better than the state-of-the-art. We 
are so pleased because LUCID© provides 
for the Model 100 spreadsheet capability 
you cannot equal on a desktop computer. 

LUCID© is, in our opinion and that of 
those who have examined it, a break- 
through. We sell it on a 30 day trial. If you 
are not completely satisfied, return it within 
30 days for a full refund. Priced at $149.95, 
on snap-in ROM. MasterCard, Visa 
or COD. 

© PCSG 1984 

Hr* with 






PORTABLE 
COMPUTER 




URORT 
GROUP 

1 - 214 - 351-0564 


11035 Harry Hines Blvd., #207 
Dallas, Texas 75229 



Basic Bytes 


100, 200, 1000, 1200, 2000 


Let a Spreadsheet 
Dispel the Gloom 
of Form Creation 


By Richard A. White 
PCM Contributing Editor 


I t occurred to me that some of the 
utility programs in computer mag- 
azines programmed in BASIC might 
be done as well or better in a spreadsheet. 
This is not to detract in any way from 
the quality of the programming from 
the contributors. Rather, it is an 
opportunity to demonstrate the power 
of a spreadsheet in a direct comparison. 

I had to look no further than Joseph 
Kohn’s Purchase Order BASIC program 
in PCM’s sister publication, the May 
1985 RAINBOW. I would guess that 20 
to 40 hours of programming were 
involved. 

Forms are where spreadsheets shine, 
so out came my spreadsheet and within 
two hours my purchase order form was 
done, complete with ASCII saves of the 
results to feed the word processor when 
it came time to write this column. Well, 
not quite done, since I did find a few 
bugs as I put the column together and 
had a few ideas for improvements. The 
illustrations accompanying this column 
are the third or fourth try. Still, no 
major amount of time was involved. 

My version of the purchase order is 
shown as Figure 1. 1 started with Joseph 
Kohn’s design and modified it to my 
taste. Having some of the basic design 
already done helped. 


(Richard White has a long background 
with microcomputers and specializes in 
BASIC programming. With Don Doll- 
berg , he is the author of the TIMS 
database management program for the 
Color Computer.) 


To construct the form, we start with 
column widths. These are determined 
by the central part of the form where 
the items being ordered are listed. 
Column A was set to four characters 
to form a left margin. Column B was 
also set to four since I do not expect 
the quantity to be a very large number. 

The beauty of a spreadsheet program 
is that something like a column width 
is easily set while the form is being 
constructed. So, if you are a large 
volume buyer of, say, disk hub rein- 
forcement rings, and your order quantity 
is each, you may want to leave the 
column a bit wider. 

There is a fair amount of text on the 
form. If you change column widths after 
the text is entered, some text and 
formatting may be messed up. 1 said 
may because this depends on how your 
particular spreadsheet is coded. Make 
your column width decisions early and 
try to stick with them. 

Also, don’t forget your printer. How 
many characters wide can you print? 
The purchase order is best fit onto a 
standard 8 Vi by 11 -inch sheet using 
normal type so an 80-character per line 
limit, including margins, is dictated. 

The lot size, which might be a number 
or each, dozen, ream and the like is 
in Column C. This was set at six 
characters. Column D, reference 
number, was set at 12, which may be 
on the short side. 

I set the description, Column E, to 
30 characters. Some spreadsheets set a 
column width limit. In others, once you 
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Figure 1 

Purchase Order Spreadsheet Example 
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RICHARD A. WHITE 
44 DOW CT. 

FAIRFIELD, OH 45014 
513-829-8510 

DATE: JUNE 2, 1985 

TO: PORTABLE COMPUTER SUPPORT GRP 

11035 HARRY HIMES BLVD. 

NO. 207 

DALLAS TEXAS 75229 
PURCHASE ORDER 

*********** *********************************************************** 

LOT REFERENCE UNIT TOTAL 

QTY SIZE NUMBER DESCRIPTION PRICE PRICE 


EA 


LUCID SPREADSHEET ROM 


149.95 149.95 


SUB TOTAL 149.95 

PERCENT DISCOUNT 

DISCOUNT 0.00 

SUB TOTAL 149.95 

PERCENT TAX/TAX 0.00 0.00 

SHIPPING 0.00 


TOTAL 149.95 

******************************** ************************************** 
PRICES SOURCED FROM- APRIL 1985 PCM MAGAZINE 


CHARGE TO VISA CARD # 0000 111 222 333 
EXPIRATION DATE- 10/86 

SIGNATURE- 


RICHARD A. WHITE 


SHIPPING INSTRUCTIONS 


set a column width it applies to all 
columns. The ability to individually set 
column widths is of prime importance 
and I have previously expressed my 
displeasure with Model 100 Multiplan 
for failing to do this. As soon as I can 
find someone to buy my copy, I will 
make use of the purchase order shown 
above. 

Columns F and G were left in the 
default nine columns wide. 

In the heading, the name and address 
are positioned in Column E to be about 
centered on the whole form. In many 
spreadsheets, you can only right- or left- 
justify text in a cell with the format 
command. With these you can manually 
center text by inserting spaces before 
the characters. Lotus 1-2-3 lets you 
format a cell to center text by preceding 
the text with a caret. Check out your 
“helps” to understand your options. 

Next, the words DRTE and TO: are 
in Column D and are right-justified. 
The user can then enter the data 
following these words in Column E. A 
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trick here is to type a space after both 
DRTE and TO: so they don’t position 
exactly at the right side of the column. 

In the order section we are going to 
do considerable cell formatting. The 
right-justification format mentioned 
above is but one of a large number 
available. The first four column headings 
are routine without special format. 
UNIT PRICE and TOTRL PRICE are 
right-justified to align nicely over the 
columns of figures. 

Items being ordered are entered in 
rows 19 through 29. Some of the 
columns in this area carry a number 
of format controls. The quantity, QTY, 
is to be an integer justified to the left. 
This lets the LOT SIZE entries be left- 
justified with one or more spaces 
between these entries and the quantity. 
The format command must be invoked 
for each format control imposed on the 
cell. 

A left-justification format is applied 
to both columns C and D so that any 
numbers entered will be left-justified as 


text is. Some spreadsheets won’t let you 
impose a format onto an empty cell. 
They generally give no objection; they 
just don’t comply. You can beat this 
by putting a space into the cell and then 
formatting it. Since the space is a non- 
printing character, the cell looks empty. 
Whatever you may later enter will wipe 
out the space. 

Columns C and D also want to carry 
integer format. This is no problem since 
a cell may have a number of formats 
at any time. 

Some spreadsheets will not let you 
format over a range using the format 
command. The way around this is quite 
simple and may be easier than format- 
ting ranges of cells. In our example, put 
spaces in cells B 19, Cl 9 and D19, then 
apply all the required formats to these 
cells. Finally, replicate the range B19 
... D19 over the range B20 . . . B29. 
The range B 1 9 . . . D 1 9 is then replicated 
10 times, each time starting in another 
‘B’ column cell. 

The total price for the line entry is 
the quantity in Column B times the unit 
price from Column F. The formulae to 
calculate total price in VisiCalc/ Lotus 
1-2-3 format are shown in Figure 2. 

An IF statement is used to test if there 
is a value in Column B before making 
a calculation. If there is none, the 
contents of Cell A1 are written. A1 
contains a space so it looks and prints 
like there is nothing in the cells in 
Column G corresponding to empty 
purchase order entries. Figure 2 is an 
expansion of the IF statement to help 
those with other spreadsheets translate 
to their system. 

I need now to remind you about 
relative and absolute addressing (in case 
you did not catch last month’s offering 
and study the subject). In G19, cell 
references B19 and F19 should be 
considered as relative addresses. When 
the formula in G19 is replicated or 
copied to cells G20 . . . G29, which I 
fully expect you to do rather than doing 
a lot of error-prone typing, B19 and 
FI 9 should change line numbers. The 
replicated formula in G20 should read 
I F ( B20>0 , B20*F20 , R1 ) . Most spread- 
sheets will adjust line numbers for you. 

We are still left with a problem; since 
A1 needs to remain A 1, it is an absolute 
address. Spreadsheets have different 
ways of dealing with this problem such 
as asking you if the formula is to be 
adjusted to Lotus 1-2-3's inscrutable 
codes that I have not figured out yet. 
In the worst case, you can always edit 
lines which is better than retyping, but 
not much. 


Figure 2 

VisiCalc/ Lotus 1-2-3 Formulas 
For the Purchase Order 


IF ( B19>j3 

TEST TRUE? 


B19 **F19 

THEN SHOW THIS IN CELL 


A1 

ELSE SHOW THIS 


15 

16' 

17' 

18- 

19- 

20- 
21 - 
22 * 

23- 

24- 

25- 

26- 

27- 

28- 
29* 
20 - 

31- 

32- 

33- 

34- 

35- 

36- 

37- 

38- 

39- 


[ F ][ G 

-a***************** 

UNIT 

PRICE 


TOTAL 

PRICE 


399 

15 

99.95 


@IF(B19>0, 
@IF(B2/3>0, 
@IF (B2 l>jd , 
@IF(B22 >p, 
@IF(B23>0, 
@IF(B24>0, 
0IF (B25>)5 , 
@IF(B26 >fS, 
@IF(B27 >p, 
@IF(B28>0, 
@IF (B2 9>0 , 


B19*F19,A1 
B2 i 0*F2)3 , A1 
B21*F21,A1 
B22*F22,A1 
B23*F23 , A1 
B24*F24,A1 
B25*F25,A1 
B26*F26,A1 
B27*F27,A1 
B28*F28 , A1 
B29*F29,A1 


■SUB TOTAL @SUM(G18 

■ DISCOUNT 

■ DISCOUNT G31*(G32/1 fSp) 
■SUB TOTAL G3I-G33 

G34* (F35/10#) 

■ SHIPPING 


G3 ft) 


TOTAL G34+G35+G36 
****************** 


The @SUM(GI8 . . . G30) function’s 
range deserves mention. It spans from 
the upper to the lower dashed lines. This 
way, any way you are likely to insert 
rows to enlarge the order entry area will 
fall within the range and be included. 
If you add rows, you are likely to 
remember to replicate the ‘G’ column 
formula into those rows, but probably 
would forget to check the summation. 

A likely action is to put the cursor 
onto Row 30 and do an Insert, which 
will move Row 30 to Row 31. The Calc 
program will adjust the sum to 
@SUM(G18 . . . G31) and your new 
row will be included. The remaining 
formulae are completely straight- 
forward. 

The remainder of the purchase order 
is also fairly simple. Note that a line 
saying CHECK ENCLOSED could be 
included instead of or as well as charge 
card information. You will probably 
use one or the other and delete the row 
or rows that do not apply. The CHECK 
ENCLOSED was in cells B43 . . . D43 and 
was blanked out in Figure 1 . 

Once you have gotten your purchase 
order shell working, blank out the data 
only and save it. Thereafter, when you 
prepare an order, load the empty shell 
and go to work. rj»LTl 


ALWAYS AT 
SALE PRICES 


TANDY 



COMPUTERS 

WITH THE MANUFACTURERS WARRANTY 
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SALE PRICES 
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Center 


CUTOMER SERVICE 
(817) 481 SALE 
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DFW COMPUTER CENTER 
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GRAPEVINE, TEXAS 76051 
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1000, 1200, 2000 


Connecting to ViaNet 

. the year of the Network 


By Danny Humphress 
PCM Technical Editor 


A s far as earth-shattering compu- 
ter innovations go, 1985 has 
been a pretty dull year. Not that 
we haven’t seen a lot of great new 
equipment introductions, such as the 
Tandy 1000, but as the microcomputer 
industry matures, most of the real 
breakthroughs seem to be past us. 
Computer innovations today, while 
remarkable, pale against the leaps in 
technology we saw in the early years 
of the microcomputer revolution. 

If you had to classify the year 1985 
in the microcomputer industry, though, 
it will probably be remembered as the 
year of networking. While many com- 
panies are offering incompatible net- 
working hardware and software, IBM 
introduces its complicated grand net- 
working scheme with all the arrogance 
which we have come to expect from 
IBM, and Apple is putting its chips on 
the simple and slow avant-garde Mac- 
intosh Office network. Meanwhile, 
back in Fort Worth, Tandy quietly 
introduces their new PC network 
ViaNet. 

Unlike most of the others, the Tandy 
network is compatible with all of 
Tandy’s MS-DOS and Xenix computers 
as well as the world of IBM PCs and 
compatibles. ViaNet is simple to connect 
and use and it does not make all of 
your software obsolete. It becomes the 
liaison between IBM, Tandy, and other 
PCs in your office. 

What is Networking? 

All of the industry’s excitement about 


networking is not unfounded. Network- 
ing allows many computers to simul- 
taneously share resources — resources 
such as hard disk drives and high speed 
printers which would be costly or nearly 
impossible to purchase separately for 
each individual computer that may need 
access to them. In addition to the 
sharing of hardware resources, net- 
working allows different computers to 
share software and data. 

It used to be that the only micro- 
computer alternative for installations 
consisting of many users needing access 
to the same data was to install a single 
computer with multiple terminals. Not 
only did the computer have to provide 
disk storage and printer access to all 
of the terminals, it had to do the 
computing as well. 

In a local network, on the other hand, 
each terminal is actually a computer. 
Therefore, your terminal is not slowed 
down by other people using the com- 
puter. The only thing that is being 
shared is hard disk drives and printers. 

The main advantage to a multi-user 
computer as opposed to a network is 
that the multi-user system’s terminals 
are inexpensive “dumb” terminals. A 
network requires a complete computer 
for each terminal — although the 
computer does not necessarily need to 
have a printer or disk drive connected 
directly to it. As the costs of micro- 
computers continues to drop, though, 
this advantage is quickly disappearing. 


(Danny Humphress, pcm’s Technical 
Editor, is the owner of a computer 
software and consulting firm in Louis- 




ville, Ky. Danny brings to pcm his 
extensive experience with small business 
computers and applications software.) 
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How it 
Works 


ViaNet is not Tandy’s first move 
into networking. In early 1983, they 
began delivering a system based on 
Datapoint’s Arcnet for their Model 
II 8-bit computer. 

Model II Arcnet was not well 
received. Like IBM’s PC Network, 
Model II Arcnet required that at 
least one computer in the network 
be a network “server.” That is, the 
one computer would do nothing but 
route information through the net- 
work. It could not be used as a 
terminal, but must have network 
server software loaded and running 
at all times. Because of the slow 
speed of the 8-bit computers and the 
software being used, accessing a hard 
disk across the network was almost 
like going back to the days when 
ultra-slow cassette tape was the only 
available storage medium. Addition- 
ally, most existing Model II software 
had to be rewritten or modified to 
work in the network — no such 
software ever saw a store shelf. 

Mercifully, Model II Arcnet soon 
faded into oblivion. 

The ViaNet network is based upon 
the same Datapoint Arcnet hardware 
standard — one of the fastest and 
most versatile there is — yet it is the 
software which makes all the 
difference. 

While ViaNet is often used to 
describe the entire network system 
it is actually just the network soft- 
ware. The hardware is Standard 
Microsystems Corporation’s imple 
mentation of the Arcnet standard, 
and the software comes from Via- 
Netix, Inc. 

With ViaNet software, there is no 
need for a centralized network 
server. Any user can access any disk 
drive (hard or floppy), any printer, 
any display and any RS-232 device 
in the network, providing that 
permission is granted from the 
“owner” of that device or the system 
administrator. Hard disk drives and 
printers can be centralized or scat- 
tered about the system — it makes 
no difference. 


The Hardware 

Each computer in a ViaNet system 
must have one $499 Arcnet board. 
There are three versions of the board. 
One for the Tandy 1000, 1200HD, or 
other IBM compatible; one for the 
Tandy 2000; and one for the Tandy 16 
or 6000. 

Each board is assigned a different 
“node” number, from 1 to 255, by 
setting DIP switches on the board. 
Therefore, the number of computers in 
any single network is limited to 255. 

Since the cabling and hubs for the 
ViaNet network are the same as Tandy s 
old Model II Arcnet, Radio Shack 
Computer Centers have begun to blow 
the dust off their old Arcnet cables and 
hubs. They have become salable mer- 
chandise again! 

The computers are connected together 
with RG62 coaxial cable. Cables with 
BNC connectors are available from 
Tandy in lengths of 10, 20, 50 and 100 
feet. Bulk cable and connectors are also 
available for longer lengths. 

If there are just two computers in a 
network, a single cable between them 
is all that’s needed. One end of the cable 
plugs into the Arcnet board of one 
computer and the other end plugs into 
the Arcnet board of the second 
computer. 

For systems of three to four com- 
puters, a passive hub ($79) is needed. 
The passive hub has connectors for four 
cables. Cables from each one of the 
computers is connected to the hub. 
Figure 1 illustrates the setup. 

The passive hub simply connects the 
four cables. The cable length from one 
computer to another when connected 
through a passive hub is 200 feet. For 
longer distances and if there are more 
than four computers connected, the 
more expensive active hub is needed 

($999). u . u Ar 

The active hub, which requires an AC 
outlet, amplifies the signals and allows 
you to connect more computers together 
at greater distances. The active hub has 
eight connectors which may be connect- 
ed directly to computers, passive hubs, 
or other active hubs (two passive hubs 
cannot be connected directly together 


— the signal would suffer too much). 
The total cable length between a 
computer and an active hub is limited 
to 2,000 feet. Figure 2 shows how this 
is done. 

A system with one active hub can 
have up to 24 computers before another 
active hub is needed. This is accom- 
plished by connecting a passive hub to 
each one of the eight connectors on the 
active hub, and having three computers 
attached to each passive hub (the fourth 
connector on the passive hub is the one 
connected to the active hub). 

While you are out buying all your 
ViaNet boards and cables, buy some 
extra memory for your computers. The 
ViaNet software takes about 128K of 
RAM. If you have a program that 
requires 256K, you’ll need 384K to run 
it with ViaNet. 

The Software 

The software from ViaNetix, Inc. is 
the real gem of this network system. 
Packaged with e^ich board you purchase 
are two diskettes. One contains the 
ViaNet software for your particular 
computer, and the other has text files 
of planning forms which you may print 
and use when designing your system. 

There are two major components to 
the ViaNet software. One is the NETDRV 
R.SYS device driver which you install 
in your CONFIG.SYS file (see MS- 
DOSsier in this issue for more infor- 
mation on system configuration). The 
other, which is loaded from the MS- 
DOS prompt, is the actual network 
driver. Once the software is loaded, it 
resides in the background. The computer 
returns to the normal MS-DOS prompt, 
and the only indication you have that 
the network is running is when you are 
able to access devices on other com- 
puters. 

In addition to the basic networking 
drivers, the ViaNet system includes 
utility software that allows you to set 
up groups of users and individual user 
passwords, software to spool print 
requests from users to one or more 
printers, software to change the pro- 
tection status of individual files (files 
can be made so that only certain users 


36 PCM August 1985 




Figure 1 

Typical Small Network 


HIGH 

SPEED 

PRINTER 


PASSIVE 

HUB 


Figure 2 

Larger Network System 


TO OTHER COMPUTERS 
OR HUBS 


have access to them) and software to 
set up “macros” (more on macros 
follows). 


Drive Z: 

The ViaNet Connection 

A typical single-user Tandy 1000 
might have a floppy Drive A:, a hard 
disk C:, and perhaps a printer PRN:. 
When your computer is part of a ViaNet 
system, you have a new drive — Drive 
Z:. 

Drive Z: is your software connection 
to ViaNet. All remote computers are 
accessed through Drive Z:. The root 
directory of Drive Z: contains a directory 
for each computer connected to the 
system. The names of the computers can 
be anything you want: Generic as “PCI ” 
and “PC2” or personal such as “MAR- 
LA” and “WARREN.” If you did a 
directory of the root of drive Z:, you 
would see something like Figure 3. 


In Figure 3, you see that there are 
three computers connected to the 
network. We’ll assume that we are PCI 
and the other two are PC2 and PC3. 

If we changed to the PC2 directory 
of Drive Z: and did a directory, we 
might see something like that in Figure 
4. 


■1 

PASSIVE 

HUB 

■H 

H 

■ 

H 


As you can see in Figure 4, there are 
three files named NUL, CON, and PRN 
and two directories named A and C. 
NUL is the “nowhere” device on that 
machine — if you send something there, 
it goes nowhere. CON is the console 
— the keyboard and the display. PRN 
is the printer connected to that com- 
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puter. The directory called A is the disk 
inserted in Drive A of PC2 and C is 
the directory of the hard disk Drive C:. 

This is simply a list of the devices 
and disk drives on PC2 made available 
to us. In a typical application, the 
floppy disk Drive A: on each computer 
would normally be private and only 
accessible to the person using that 
computer. 

As we go into this directory structure 
to directory Z:\PC2\C — Drive C: on 
the computer named PC2. The directory 
might look something like Figure 5. 

Figure 5 shows the directory of the 
hard disk Drive C: in PC2, but it was 
done from another computer. Instead 
of accessing it as Drive C: as we would 
if we were at the computer, we accessed 
it as Z:\PC2\C which can be thought 
of as “go through ViaNet to PC2 and 
to its Drive C.” Any sub-directories of 
the drive would just be a continuation 
of the path Z:\PC2\C. 

Macros 

Mastering the art of remembering the 
path to the devices you want is not 
always easy — especially when many 
of the users on the system are computer 
users and not computer experts. Another 
problem is that most software will not 
recognize directory paths. 

Fortunately, ViaNet software pro- 
vides a wonderful program, MA- 
CASGN, which allows you to rename 
these paths to whatever suits your 
fancy. The path Z:\PC2\C, for exam- 
ple, could be renamed D:. D: would 
then become just another drive at your 
computer and could be used as such. 

MACASGN can also be used to tell 
ViaNet where certain programs reside. 
If, for example, you have a program 
called MAILLIST which is always on 
the hard disk Drive C: of PC2, you 
could define a macro to say that 
“MAILLIST = Z:\PC2\C\ MAIL- 
LIST.” No matter which drive you’re 
on and which directory you’re in, if you 
ask for MAILLIST, ViaNet will help 
MS-DOS find it. 

MACASGN is a utility that is very 
useful even when you are not concerned 
with using the network, but when you 
are accessing files and devices across 
the net, it is invaluable. 

The system administrator, the person 
designated to setup and maintain the 
network, can create batch files and 
macros to make the system transparent 
and very easy to operate. As far as any 
user is concerned, the hard disk drives 
and printers are connected directly to 
his or her own computer. 
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Our Experiences with ViaNet 


With the help of the good people at 
Tandy Center, we were able to get our 
ViaNet system up and running a little 
early. Using preliminary versions of the 
ViaNet software, we set up a system 
of four computers. 

Computer one, a Tandy 1000, was 
equipped with a PBJ multifunction 
board with 512K and two 15M hard 
disk drives. The second computer, a 
Tandy 2000HD, had 512K RAM. A 
Tand y 1 200 HD512Kmadeup the third 
computer, and a Tandy 1000 with 384K 
and a Tallgrass tape backup system was 
computer number four. 

We have been using filePro 16 


databases to keep track of products sent 
in for review, article and program 
submissions for publication, and an 
index for SOFT SECTOR, one of the other 
magazines published here. 

The databases were all located on one 
of the hard disk drives connected to the 
first Tandy 1000. A series of filePro 16 
menus were set up to make it easy for 
anyone at any computer to call up any 
of the files. Since filePro 16 does not 
currently use our multi-user installation, 
problems could arise if more than one 
person were working on the same file 
at the same time — and some did. 

It was never a problem for more than 


one user to just look at a file, but when 
two people were trying to add to or 
update the file, conflicts existed. In 
order for software to work properly in 
a multi-user environment it must do two 
things. First, it must lock out a 
particular record from other users when 
you are updating that record. Secondly, 
it must be smart enough to wait if a 
record is currently locked by another 
user. ViaNet provides MS-DOS 3.00 
compatible machine language calls for 
software that does behave this way. 

We set up a simple internal mail 
system on the system with extensive use 
of batch files. Instead of practical uses, 
we found ourselves sending cute little 
notes across the office — the adult 
version of passing notes in the 
classroom. 

All in all, the system worked won- 
derfully. We did have problems with 
some of the people resting or turning 
off their computers while others were 
trying to access hard disk drives 
connected to them — a practice we soon 
learned to avoid. 

In just the short time that we have 
had ViaNet, it has become an essential 
part of our operation. The applications 
we are now doing on the network were 
once on a single machine. People had 
to almost literally take a number to use 
the computer or the desk where it was 
sitting — which happened to be mine! 
Now, since everyone involved with 
those applications has a computer at 
her desk, they can use the system 
whenever they need. 

As we prepare to move into our new 
offices in the Falsoft Building, we see 
the network growing to a much grander 
scale. We plan to use it extensively for 
word processing — as articles are 
finished they can be sent directly to the 
typesetting department. The amount of 
paper that passes across desks can be 
reduced a bit by using the system for 
inter-office memorandums and mes- 
sages. Certain departments will have 
applications directly related to their 
needs. It is even possible that PCM’s 
subscriptions, which are now kept on 
a Tandy 6000 system, can be moved 
to the network someday. We have a lot 
of plans. nrai 
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Set of Four 
325 Set of Three 
$465 Set of Five 


ACCOUNTING FOR MICROS is a 

integrated accoun^^jprograms whidr 
meet professional standards. They're 
fast and easy to use, with complete in- 
structions. Our manual (shown alcove) 
also includes helpful information on 
bookkeeping and computers. 

GENERAL LEDGER $125 

Allows up to 1,000 accounts & 1,000 
transactions/month. Retains mo/end 
balances for Last year, This Year and 
Forecast. Includes Cash Disburse- 
ments, Cash Receipts and General 
Journals. Reports include Balance 
Sheet, Income Statement, Annual 
Summaries and Journal Reports. 

ACCOUNTS RECEIVABLE $125 

Allows up to 2,500 customers and 1,000 
invoices per month. Invoicing can access 
Inventory Module. Keeps customer 
names and addresses. Invoice prints on 
plain paper or any pre-printed form. 
Statements can be printed at any time. 


ACCOUNTS PmBLE 

Allows up to 

voices/ mo. Records invoices and hand- 
written checks. omputer checks 

on any pre-prinfed form. Keeps vendor 
names and addresses. 


Try all 5 programs above (GL, AR, AP, 
IN, PR). Order our DEMO DISK for 
$18.00 (includes shipping). Condensed 
versions of the programs give you the 
"feel" of data entry and access. Includes 
sample reports and instructions. Specify 
machine. 


PAYROLL $125 

Will handle up to 100 employees with 
six deductions per employee. Deduc- 
tions may be determined as fixed dollar 
amounts or percentages, or referred to 
a table for automatic look-up. Tax tables 
purchased sepa- 


TRASHMAN (NEW) $1A5 

The "Catch-All" program. Files any 
type of information for quick access. 
Name or subject oriented with 15 lines 
of notes per name. Use TMAN as a 
mailing list, filing system, notebook, 
etc. Can be used alone or with data 
from our other programs. 

Try TRASHMAN (only) DEMO $16 

HOWTO ORDER: Please specify machine 
and disk format. You can pay by check, 
by VISA or MasterCard (we need your 
expiration date and card number), or by 
UPS COD (add $2.50 COD charge). Our 
price includes shipping. Minnesota resi- 
dents, add 6% sales tax). We ship most 
orders the same day. 
or ORDER BY PHONE: 612-339-2521 


are easily entered, 
rately. 


SET OF FIVE ... 
SET OF FOUR . 
SET OF THREE 


INVENTORY $125 

Allows up to 4,000 parts. Keeps 3 
month history of unit sales as well as 
year to date. With AR, can be used as 
point of sale system (prints invoices, 
handles cash). Reports include Inven- 
tory Value and Stock Report, Internal 
and Customer Price List. 


125 North First Street 
Minneapolis, MN 55401 


Accounting For Micros 



Subroutine City 


■fiii&i 

Feature 


1000, 1200, 2000 


Herein, the author develops subroutines to allow BASIC to access the most useful 


MS-DOS functions 


Accessing MS-DOS 
Commands from BASIC 


By Robert D. Covington 

H ave you ever wanted to make 
a directory in BASIC? Have you 
ever wanted to change the 
current directory, change the default 
drive, or determine the amount of 
available space on a disk? If so, you 
are probably well aware of BASIC’s lack 
of support of MS-DOS. 

In this installment of “Subroutine 
City”, a set of subroutines for BASIC 
will be described to allow BASIC to 
access most of MS-DOS’s disk man- 
agement, file management, and file 1/ 

O functions. 

MS-DOS’s Internal Structure 

The MS-DOS disk operating system 
used in the Model 1000-2000 is divided 
into three seperate sections. The first 
section, the basic input/ output system 
(BIOS for short), is responsible for 
controlling all of the computer’s hard- 
ware accessed by MS-DOS. The rou- 
tines in the BIOS are used to print a 
character on the screen, update the 
internal time clock, get a character from 
the keyboard, etc. In general, the BIOS 
is the interface between the MS-DOS 
system and the hardware. 

The second section of MS-DOS 
contains the actual routines for sup- 
porting the disk operating system. This 
section is used for managing files, 
loading programs, managing file direc- 
tories, etc. Generally, most of the 
functions used by MS-DOS are accessed 
through this section. 

The third and final section of MS- 
DOS, the command processor, is 

(Bob Covington has been a computer 
programmer and consultant for the past 
six years, most recently focusing his 
attention on both the Model 100 and 
the 2000. He is also a technical writer 
and editor. Bob can be contacted at 
P.O. Box 37007, St. Louis, MO 63141.) 


responsible for interfacing MS-DOS to 
the user. The command processor 
controls all of MS-DOS’s commands 
(DIR, REN, DEL, etc.), device redirection 
and piping, batch file processing, etc. 

To help you better understand the 
functions of these three sections of MS- 
DOS, let’s take a look at what occurs 
when BASIC is loaded off disk from 
command level. First, the user enters 
BASIC followed by an enter at command 
level. Next, the command processor 
looks at what was entered and checks 
to see if it is a legal MS-DOS internal 
command. Since in this case the entered 
text was not a command, the command 
processor assumes that a request was 
made to load a program. After process- 
ing any pipes or device redirection, the 
command processor tells MS-DOS to 
attempt to load the program. MS-DOS 
then checks to see if the selected disk 
contains the file that was requested. If 
the file is not on the disk, MS-DOS 
returns with an error message, the 
command processor prints the textual 
equivalent of the error, and control is 
returned to the command processor. If 
the file was found, MS-DOS uses the 
BIOS to load the program from disk 
to memory. Then, MS-DOS computes 
all the relocatable code and transfers 
control to the loaded program. 

When BASIC is loaded into memory, 
its only access to MS-DOS is through 
the BIOS or the actual MS-DOS 
system. The command processor that 
loaded BASIC is temporarily halted and 
thus can not be used by BASIC. As a 
matter of fact, you could consider the 
actual BASIC interpreter as a new 
command processor; interfacing the 
computer user to MS-DOS. When 
BASIC is “in control,” it uses MS-DOS 
and its BIOS for keyboard scanning, 
file I/O, directory management, RS- 
232 support, etc. Unfortunately, BASIC 


uses MS-DOS’s functions internally 
and does not normally allow the user 
to make direct use of the functions 
inside MS-DOS. 

MS-DOS Access Subroutine 

Thanks to BASIC’s CALL instruction, 
a machine language subroutine can be 
created to access all of MS-DOS’s 
internal functions inside a BASIC 
program. This means that BASIC pro- 
grams will now be able to make use 
of the many functions supported by 
MS-DOS. In addition, this same 
subroutine will allow basic to go down 
one more step and directly access the 
BIOS (more on this in future 
installments). 

Program 1 contains the source for 
a universal MS-DOS/ BIOS function 
call subroutine for BASIC. This machine 
language subroutine loads the 8088/ 
80186’s eight main user registers with 
eight BASIC variables respectively. The 
subroutine expects BASIC’s variables to 
be integers and to correspond to the 
registers in the order AX, BX, CX, DX, 
BP, SI, DI, status word. Then, the 
subroutine causes a forced interrupt to 
one of the functions in MS-DOS or the 
BIOS. When the function is complete, 
the subroutine loads the contents of the 
updated user registers back into the 
BASIC variables used before. (See last 
month’s “Subroutine City” for more 
information on machine language 
subroutines and how variables are 
passed to them.) 

In Program 2, the machine language 
program has been integrated into a 
BASIC program. Lines 10-20 set up and 
load the assembled version of Program 
1 . To better adapt this machine language 
subroutine to basic, the assembled 
subroutine is converted into DATA 
statements in lines 50000 through 
50002. These data statments are loaded 
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Listing 1 


CODE 


BIOS 

START: 


PAGE 

TITLE 

SEGMENT 

ASSUME 

PUBLIC 

PROC 

PUSH 
POP 
MOV 
MOV 
PUSH 
POPF 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


60,80 

MSDOS 


Function call Accesser ** By Robert D. Covington 


CS:CODE,DS:CODE,ES:CODE 

BIOS 

FAR 


DS 

ES 

BP , SP 
BX, CBP+4] 
C BX ] 


BX, CBP + 6 3 
D I , C BX ] 

BX , [ BP+8 1 
SI , [BX] 

BX , CBP+123 
DX , [ BX 1 
BX, CBP+14] 
CX, [BX] 


; MOV 

ES , D3 




; M a k 1 

e BP base pc 

)i nti 

er 

of stack 

; Get 

descr i ptor 

tor 

SW 

var i abl e 

; Movi 

3 SW , [ BX ] 




; Get 

descriptor 

tor 

D I 

var i abl e 

; Put 

variable in 

D I 



; Get 

descriptor 

tor 

SI 

variable 

; Put 

variable in 

SI 



; Get 

descriptor 

for 

DX 

var i able 

; Put 

variable in 

DX 



; Get 

descriptor 

for 

CX 

var i ab 1 e 

; Put 

variable in 

CX 




Why Handle Files One at a Time? 

Let XOUT/XIN from BK1 do the work for you. 


lowest: Sam";¥ect” £‘22 S' " 0rd ' , ' dfc( ' J " m '" C Fi-i-A'.rf A, w hcwmg t» dUcO, 

Use XIN.BA to automatically Load selected tape files back into memory; or send them directlyflList), or via a formatter (4mat), to the printer or the screen. 

Typical XOUT.BA Menu Typical XIN.BA Menu 

B 


?Pt 1 I1???chaIoid 

igMBHJ !3??jgHra 

ILISTI D 201 i PRTCAPD 

f221 


|?i S 

531 


!§§?; 


26968 Used 


. List 4mat , 


. Kill Abrt Menu 


EXIN B 
IXOUT B 
, 1D04MATB 

mis¥t T g 

iUSBB .. 

7510 Free 


OrtCHAPO 1 D +2001 
0 j CHAP02D - 240 : 
0 ! CHAP03D 1853! 

o : dosu d o : 

-120! PRTCAPD 01 

801 I SPRED 1 C 10071 
401 1SPRED2C 15071 
21679 Used 


29189 Total 


Load 


. List 4mat 


. Next Abrt Menu 


PCM 


CERTIFICATION 

SEAL 


- XOUT.BA - 


’ Displays memory contents in memory address order 
1 As Wes are highlighted memory statistics are changed to reflect values if Kill selected. 
1 BA files are stored on tape as standard tokenized files. 


- XIN.BA - 


Displays tape contents in tape position order. 

As fles are highlighted memory statistics are changed to reflect values if Load selected. 

If the file name exists in both the tape and memory directories, the difference ( + , ,0) in size is shown 

• Label line alternatives with statistics line by toggfing the label key 

nfMM°ATRA 4MAT ' BA programs are provided as examples for interfacing existing formatters Full featured BA4MATBA and 

SSt^f£ T f BA Pr ?^^ S ’ ^ eadyint€rfaced mh th f XOUT/XIN programs, are offered as separately priced items. D04MATBA and BA4MAT BA format a 
single file if executed from the main menu or multiple files if executed via XOUT or XIN. M lomnat a 


- D04MAT.BA - 


• Formats documents using embedded command descriptions for many features, including columns, 
underlining, bold print filling and adjusting, 

• Optional headers and footers may include the date, time and page number. 

• Specify printer make and model. (Customizing directions given for printers not yet implemented.) 


- BA4MAT.BA - 


• Formats BA files so that the individual basic commands are listed one per line indented from the b 
line number. 

• Additional indentation occurs to diagram the IF-THEN-ELSE structures in the program. 

Pagination including the date, time and page number are provided. 


XOUT.BA/XIN.BA 
D04MAT.BA (skeleton) 

BA4MAT.BA (skeleton) 49.95 

D04MAT.BA (full featured) 39.95 

BA4MAT.BA (hill featured) 29.95 


Buy two programs take $1 0 discount 
Buy all three take $20 discount. 

MD residents add 5% Sales Tax. 

AH programs come on cassette with documentation. 


Send Check or Money Order to. 

BK1 

PO Box 218 

College Park, MD 20740 

Questions and COD call (301)345-9473 


42 PCM August 1985 



MOV 

BX , CBP+18] 

{Get descriptor -for AX 

variable 

MOV 

A X , C B X ] 

; Put variable in AX 


MOV 

BX , CBP + 16] 

;Get descriptor -for BX 


MOV 

BX, [BX] 

5 Put variable in BX 


MOV 

BP , [ BP+ 1 0 ] 

; Get descriptor tor BP 


MOV 

BP, [BP 3 

5 P u t variable in BP 


INT 

2 1 H 

{Execute DOS -function < 

call 

PUSH 

BP 

;Save BP for later 


PUSH 

BX 

;Save BX for later 


MOV 

B P , S P 

{Make BP base o-f stack 


MOV 

BX , C BP + 8 3 

;Get descriptor for SW 

var i ab 1 e 

PUSHF 


; MOV [ BX ] , SW 


POP 

[BX3 



MOV 

BX , [BP + 10] 

;Get descriptor for DI 

variable 

MOV 

[ BX 3 , D I 

; Save D I in variable 


MOV 

BX, [BP+12] 

;Get descriptor for SI 

variable 

MOV 

[BX3 , SI 

5 Save SI in var i ab 1 e 


MOV 

BX , [ BP+ 163 

{Get descriptor for DX 

var i ab 1 e 

MOV 

[ BX 3 , DX 

;Save DX in variable 


MOV 

BX , CBP+18] 

;Get descriptor for CX 

variable 

MOV 

[ BX ] , CX 

;Save CX in variable 


MOV 

BX , CBP+22] 

; Get descriptor for AX 

var i abl e 

MOV 

[BX 3 , AX 

;Save AX in variable 


POP 

BX 

{Restore BX 


MOV 

BP, [ BP + 20 3 

{Get descriptor for BX 

variable 

MOV 

[BP] , B X 

5 S a v e BX in variable 


MOV 

BP, [BP+143 

; Get descriptor for BP 

var i ab 1 e 

POP 

BX 

; Put old BP in BX 


MOV 

[BP] ,BX 

; Save BP in variable 


RET 

16 

jReturn fixing for 8 parameters 

BIOS ENDF' 




CODE ENDS 




END 

START 



Listing 2 




1 ' #** MSDOS Function Subroutines For BASIC 


2 ' **# By Robert 

D. Covington 



10 DIM B*,AX,BX,CX 

, BP , S I , D I , SW 



20 FOR X= 1 TO 100: 

READ A:BIOS$=BIOSt+CHR$(A) : NEXT: X=FRE ( X ) : 

V=VARPTR (BIOS!) : BIOS ! 

=PEEk ( V+ 1 ) +PEEK (V+2) *256 



25 CLS: PR INT 11 Program Installed... 

n 


999 END 




2000 ' #*# Create 

File 



2001 ' Entry: 




2002 ' A$ 

- File name 



2003 ' Exit: 




2004 ' FH7. 

- File Handl e 



2005 ' E 

- Error Status 

(0-no error) 


2006 ' 




2010 AX7.= 1 5360 : CX7.> 

=0 : GOTO 3020 



3000 ' *#* Open already existing 

file 


3001 ' Entry: 




3002 • A* 

- File name 



3003 ' Exit: 




3004 ' FH7. 

- File Handl e 



3005 ' E 

- Error Status 

(0-no error) 
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into the string BIOSS by Line 20. By 
doing this, the machine language 
subroutine can be used on almost any 
MS-DOS system with almost any 
memory configuration. 

Disk Management Subroutines 

At this point, most of you are 
probably wondering what the capabil- 
ities of this wonderful machine language 
subroutine are. Let’s take a look at some 
of the other subroutines contained in 
Program 2 that make use of this 
machine language subroutine. 

The subroutine starting at Line 8000 
sets the current default drive for MS- 
DOS to the drive named in AS. The 
default drive is the drive that MS-DOS 
uses to search for a file if no drive name 
is given in the file’s pathname. For 
example, if you performed the following 
function: 

A$=~B":G05UB 8000 

all file accesses after the G05UB would 
use drive B unless otherwise directed 
to by the pathname (example, A:TEXT 
. DAT). On return from the subroutine, 
the variable D contains the number of 


drives supported by the current BIOS 
and E contains the error status. If the 
error status is 0, no error occured. If 
the error status is 15, the drive selected 
is illegal. 

If you wish to determine which drive 
is designated as the default drive, the 
subroutine starting at 9000 can be used. 
This subroutine returns with the drive 
name in A$ (A-E) and the drive number 
in D (A-0, B-l, etc.). 

Probably one of the most useful 
functions for an entire disk that is 
omitted from GW-BASIC is a function 
that returns the amount of free space 
available on a disk. The subroutine 
starting at Line 10000 will not only find 
the amount of free space on a disk but 
also the total storage capacity of the 
disk. On entry to this routine, the 
variable D must contain the drive 
number you wish to obtain the free 
space information from. If D is equal 
to 0, the default drive is selected. If D 
is greater than 0, the drive number 
directly corresponds to the letter of the 
drive (example, 1-A, 2-B, 3-C, etc.). 
Upon return from this subroutine, F! 
contains the number of free bytes on 
the system and A! contains the total 


storage capacity of the disk. In addition 
to these variables, four other variables 
on the specifications of the drive are 
given (see lines 10004-10007). Since 
these commands are more technically 
oriented, I will not describe them in this 
article. 

Directory Management Subroutines 

Another important feature that is 
omitted on GW-BASIC is subdirectory 
support. Considering that MS-DOS’s 
most powerful function is its tree 
directory structure, this is quite a loss. 

To alleviate this problem, the machine 
language MS-DOS access subroutine 
can be used to tap into MS-DOS’s 
powerful directory support. 

On all of the directory management 
subroutines, the E register returns with 
the error status. If E is equal to 0, no 
error occurred. If E is greater than 0, 
the following errors occurred: 

Value in E Error 

3 Path Not Found 

5 Access Denied. Directory 

is not empty, legal, or is 
the current directory. 

15 Invalid Drive 


3006 

, 


3010 

AX 7.= 156 18 


3020 

I=33:A$=A$+CHR$(0) :G0SUB 32000:G0SUB 40000: IF (SW7. AND 

1 ) =0 THEN FH7.=AX7.:E = 

OtELSE E=AX7. 


3030 

RETURN 


4000 

’ *** Close file 


4001 

Entry: 


4002 

' FH7. - File handle 


4003 

' Exit: 


4004 

' E - Error status (0-no error) 


4010 

BX7.=FH7. : AX7. = 15872 


4020 

1 = 33: G0SUB 40000: IF (SW7. AND 1)=0 THEN E=0 ELSE E=AX7. 


4030 

RETURN 


5000 

' *** Move file Position 


5001 

' Entry: 


5002 

FH7. - File handle 


5003 

A! - File position (byte reletive to start 

of file) 

5004 

' Exit: 


5005 

' E - Error status (0-no error) 


5006 

■ 


5010 

1 = 33: A X7.= 16896 : BX7.=FH7.: G0SUB 30000:G0T0 4020 


6000 

' *** Read data from file 


6001 

' Entry: 


6002 

' FH7. - File handle 


6003 

' L - Number of characters to read (LRL) 


6004 

' Exit: 


6005 

' A$ - Data read from file 


6006 

' E - Error status (0-no error) 


6007 

' L - # of characters actually read 



44 PCM August 1985 



16 Attempt to remove the 

current directory 

The subroutine starting at 1 1000 will 
create a subdirectory with the pathname 
in A$. For example, if you executed 
an: 

A$="BASIC\DATA~ : GD5LIB 11000 

the directory BASIC\DATA would be 
created on the current default disk. 

The subroutine starting at 12000 
deletes the subdirectory with the 
pathname in A$ from the disk. As at 
MS-DOS command level, the directory 
must be completely empty before the 
directory can be removed. 

The subroutine starting at 13000 
changes the current default directory 
path to the pathname in A$. For 
example, an: 

A$="\":GdSUB 13000 

makes the root system directory the 
current default directory just as if a CD\ 
were entered at MS-DOS command 
level. 

The subroutine starting at 14000 
returns the current default directory 


path in A$. On entry to this routine, 
D must contain the drive number for 
the drive you wish to retrieve the 
pathname from. If D is loaded with a 
0, the current default drive is used. If 
D is greater than 0, the drive number 
directly corresponds to the letter of the 
drive (example, 1 - A, 2 - B, etc.). This 
function in conjunction with the routine 
at 13000 is very useful in moving up 
or down directory levels. 

The subroutine starting at 15000 
renames the file with the pathname in 
A$ to the pathname in B$. Best of all, 
this function not only allows the file 
name to be changed, but it also allows 
a file to be moved to another directory 
on the same drive. For example, if an: 

A$= "BAS I C\DAT A . TXT " : B$= "DAT fl\ 
DATA. TXT" :G0SUB 15000 

(a one-line entry on your computer) 
were executed, the file DATA.TXT would 
be moved from the BASIC directory to 
the DATA directory. Unfortunately, this 
function does not support moving a file 
between disk drives. Because of this, the 
paths in A$ and B$ must refer to files 
on the same drive. 


File I/O Subroutines 

You are probably wondering why we 
would need to access MS-DOS’s file 1/ 
O subroutines when BASIC has such 
powerful file manipulation instructions. 
Well, BASIC’s file I/O instructions work 
fine in all but one case; when a file is 
being manipulated on a byte-per-byte 
basis. 

One of the most annoying limits 
imposed by BASIC is the 32767 record 
limit on a GET or PUT instruction. This 
means that if you want to randomly 
access a file with a logical record length 
of one byte, a file only 32K long can 
be easily accessed. This limitation has 
resulted in quite a few problems in many 
programs I have written. 

Where BASIC suffers, MS-DOS tri- 
umphs. MS-DOS’s file I/O functions 
allow random access of files up to 
4,294,967,296 bytes long. Since I doubt 
that too many people will ever exceed 
that limit, I think I can safely say that 
MS-DOS’s file I/O functions can 
manipulate any file on a byte-per-byte 
basis. 

Like BASIC, MS-DOS’s file I/O 
functions require that a file be opened 


6008 



6010 

AX! / .= i6128:A*=SPACE$(L) 


6020 

BX7.=FH7.:CX7.=L 


6030 

1=33 : G0SUB 32000: G0SUB 40000: IF ( S W 7. AND 1 ) =0 THEN 

L = AX7. : E=0 ELSE E = AX7. 

6040 

RETURN 


7000 

*** Write data to tile 


7001 

Entry: 


7002 

FH7. -File handle 


7003 

A* - Data to write to tile 


7004 

Exit: 


7005 

L - Length ot data written 


7006 

E - Error Status (0-no error) 


7010 

AX’/.= 16385:L = LEN(A*) :G0TO 6020 


8000 

*** Set new detault drive 


8001 

Entry: 


8002 

At - Drive Name (ex. AX="A") 


8003 

' Exits 


8004 

D - Number ot logical drives on line 


8005 

E - Error Status (0-no error) 


8006 



8010 

AX7.=3584: E = 0: DX7.= ( ASC (A*) AND 223) -65: IF D X < 0 OR DX 

>25 THEN E=15: RETURN 

8015 

1=33: G0SUB 40000: D=CVI (LEFT* (MKI* ( AX7.) , 1 ) +CHR*(0> ) : 

RETURN 

9000 

*** Get current detault drive 


9001 

Exit: 


9002 

A* - Drive Name 


9003 

D - Drive number (0-A, 1 - B , etc...) 


9004 

r . • .. : : : : : ; ■ : " : : i : : ; / i : : . • • « f < < ; ■ . : ; . ; ■ ; ■ * - • : : : :: :: : • . > : ■ | : : : ; ; ; ; * ■ ?.* : : : ' ; - •' : ; ; 


9010 

AX7.=6400: G0SUB 8015: A*=CHR* (65+D) : RETURN 


1000C 

i ' #** Get ammount ot tree space on disk 
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10001 

’ Entry: 


10002 

D 

- Drive (0-default, 1=A, 2=B, etc.) 

10003 

' Exit: 


10004 

BX7. 

- Number of free granules 

10005 

DX7. 

- Number of total granules on drive 

10006 

CX*/. 

- Bytes per sector 

10007 

AX’/. 

- Sectors per granule 

10008 

F! 

- Number of free bytes on system 

10009 

A 1 

- Total storage capacity of drive in 

10010 

* n t n 1 1 n n n < 


10020 

AX 7. = 13824: DX7.= 

D : 1 = 33 : SQSUB 40000: IF AX”/.=-l THEN E = 

10030 

F ! = BX7.*CX'/.*AX7. 

: A ! =DX7.*CX'/.*AX7.: RETURN 

11000 

' *** Make Subdirectory 

11001 

' Entry: 


11002 

At - 

Path of new subdirectory 

11003 

' Exit: 


11004 

E - 

Error status (0-no error) 

11010 

AX7.= 14592 



Path of subdirectory to delete (must contain no files) 
Error status (0~no error) 


11020 Ai=A$+CHR$<0) : I=33:G0SUB 32000: GOTO 4020 

12000 ' *** Remove Subdirectory 

12001 ' Entry: 

12002 ' A$ 

12003 ' Exit: 

12004 ' E 

12005 ' iiliiiiliiiiiljiSijililM 

12010 AX”/.= 14848: GOTO 11020 

13000 ' *** Change current subdirectory 

13001 ' Entry: 

13002 ' A* - Path of subdirectory to change to 

13003 ' Exit: 

13004 ' E - Error status (0-no error) 

13005 ' 

13010 AXV1= 151 04: GOTO 11020 

14000 ' *** Get Name of current directory path 

14001 ' Entry: 

14002 ' D - Drive number (0-default drive, 1 — A , 2-8, etc...) 

1 4 0 0 3 ' Exit *. 

14004 ' A$ - 64 character string of current path 

14005 ' E - Error Status (0-no error) 

14006 

14010 AX”/. = 18176: A$=SPACE$ (64) : G0SUB 32000 : S 1 7. = D X 7. : DX7.=D : GOTO 4020 

15000 ' *** Move/Rename a directory entry on a single drive 

15001 ' Entry: 

15002 ' A$ - Current pathname of file 

15003 ' - New pathname for file 

15004 Exit: 

15005 E - Err or status 

15010 A$ = A* + CHRf (0) : B$=B$+CHR* < 0 ) : AX7. = 22016: SWAP A* ,B*:G0SUB 32000: DI7. = DX7.: SWAP 
At , B$ : G03UB 32000: GOTO 4020 

30000 ' *** Convert single precision to double word 

30001 ' Entry: 

30002 ' A ! - Single Precision Integer 

30003 ‘ Exit: 

30004 ' C X 71 - Most significant word 

30005 ' D X ”4 - Least significant word 

30006 

30010 A1=A 1 / 65536 1 : A2 I = (A1 !-INT(Al! )) *65536' :A!=A1 1 sGOSUB 3 1 000 : C X 7. = A7. : A ! = I NT ( A2 
1 ) : SGSUB 3 1000 : D X7.=A*/.: RETURN 
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before it can be accessed. When a file 
is opened, MS-DOS stores all the data 
that is needed to manipulate the file in 
one of its internal buffers. The number 
of buffers that MS-DOS can have open 
at one time is specified by the FILES 
parameter in the CONFIG. SVS file 
loaded when the system is booted (see 
Appendix C of the MS-DOS user 
manual for more information on 
CONFIG.SYS). MS-DOS allows up to 
99 files to be allocated and opened at 
the same time. This is an especially nice 
improvement over BASIC’s 15 limit. 

When MS-DOS returns from opening 
a file, a 16-bit number called a file 
handle is returned to the calling 
program. This file handle is used to 
describe a file in much the same way 
that a file buffer number does in BASIC. 
Whenever any file I/O is performed on 
a file, the file handle tells MS-DOS 
which of the open files is to be ma- 
nipulated. (See “File I/O Techniques 
for Your Model 1000, 1200 and 2000” 
in the March 1985 issue of PCM for more 
information on file handles and MS- 
DOS’s internal file I/O structure.) 

In MS-DOS, there are two ways to 
open a file; create and open. Create, 
as the name implies, is used to create 


and open a new file or to start an old 
file from scratch (deleting all the 
information stored in the file). Open is 
used to open an already existing file 
for further access and modifications. 
Open cannot be used on a file that has 
not been created previously. 

The subroutines starting in lines 2000 
and 3000 respectively, create or open 
a file. On entry to each of these 
subroutines, A$ must contain the 
pathname of the file to open or create 
(subdirectories can be used in the path 
if desired). Upon return from these 
subroutines, FH% contains the file 
handle for the file and E contains the 
error status. If E is equal to 0, no error 
occurred. If E is greater than 0, the E 
corresponds to the foiling errors: 

Value in E Error 

2 File Not Found 

3 Invalid Path 

4 Too many files open. 
More files than allo- 
cated by the FILES 
parameter of CONFIG- 
.SYS were opened. 

5 Access denied. 

The subroutine starting at Line 4000 


closes the file with the file handle in 
FH%. Like BASIC’s CLOSE, this subrou- 
tine writes any remaining data to disk, 
updates the directory, and nullifies the 
file open. On return from this routine, 
E contains the error status of the 
operation. If E is equal to 0, no error 
occurred. If E is equal to 6, the file 
handle specified is invalid. 

The subroutine starting at Line 5000 
directs MS-DOS to move its current 
file position pointer to any byte in the 
file. This function allows random access 
to any open file on a byte-per-byte basis. 
On entry to this subroutine, FH% must 
contain the file handle of the file to 
position and A! must contain the 
position relative to the start of the file 
to move to. On return from this 
subroutine, E contains the error status 
of the operation. The error status 
returned is identical to that of the 
previous subroutine. 

The subroutine starting at Line 6000 
reads L number of characters from an 
open file. On entry, FH% must contain 
the file handle of the file to read from 
and L must contain the number of 
characters to read. On return, A$ 
contains the text read from the file, L 
contains the number of characters 
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actually read, and E contains the error 
status. If L is less than the number of 
characters requested, the end of the file 
has been reached. The error status 
returned is identical to that of the close 
subroutine. After each read instruction, 
the file pointer is automatically incre- 
mented by the number of characters 
read. 

The subroutine starting at Line 7000 
writes the data in A$ to disk at the 
current file position. On entry, A$ 
contains the data to write and FH% 
contains the file handle of the file to 
write to. If A$ contains a null string 
(A$=””), the end of file for the current 
file is set to the current file position. 
For example, if the file position is set 
to byte 100 of a 1000-byte file and an: 

R$="" : GOSUB 7000 

were executed, the file would shrink to 
100 bytes. All the data in bytes 101 
through 1000 in the file would be 
deleted and deallocated by the system. 
On exit from this subroutine, L contains 
the number of characters actually 
written and E contains the error status. 
The error status returned is identical 
to that of the close subroutine. 


Miscellaneous Subroutines 

The subroutine starting at 30000 
converts the single precision integer in 
A! into the double word in CX% and 
DX%. This function is used primarily 
by the file position subroutine to 
calculate the 32-bit file position. 

The subroutine starting at 31000 
converts the integer in A! to the signed 
integer in A%. In GW-BASIC, all integer 
variables have the ability of having a 
positive or negative sign. To allow this, 
the last bit in the integer, bit 15, is used 
to signify the sign of the number. In 
machine language, however, all integers 
are expected be a full 16 bits wide. To 
alleviate this incompatibility problem, 
this subroutine uses the sign bit (bit 15) 
of the integer variable A% as the 16th 
bit of the integer. 

The subroutine starting at 32000 
determines the start address of the data 
in the string variable A$. On exit from 
this routine, DX% contains the start 
address of A$ in BASIC’s data segment. 


Using Program 2 in Other Programs 

When merging the routines in Pro- 
gram 2 with your applications program, 
a few precautions must be taken. First, 


lines 10-20 must always be the first lines 
executed by any program Program 2 
is integrated into. Second, if the 
applications program uses its own DRTfi 
statements, the DRTR in lines 50000- 
50002 must be moved so they are the 
first data lines read by the system. 

In general, none of the subroutines 
in Program 2 should be deleted when 
integrating them into an applications 
program. Most of the subroutines in 
Program 2 use parts of other subroutines 
to eliminate any redundant program 
sections. Since most of the subroutines 
in Program 2 are very short, I would 
suggest leaving them in your programs 
even if you are not going to use them. 
If memory is tight, I suggest deleting 
the many REMarks from Program 2. 

Conclusion 

The subroutines in this month’s 
installment of “Subroutine City” give 
BASIC many of the most needed func- 
tions accessible at MS-DOS command 
level. 

In the next installment, the MS-DOS 
access machine language subroutine 
will be used again to allow access to 
even more functions in MS-DOS that 
were normally restricted from BASIC. 

nrai 
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Prevent data entry errors with these 
BASIC subroutines 



By Bill Qualls 


I nput processors appear frequently in microcomputer 
literature. The concept behind the input processor is 
simple: to isolate requests for entry and editing of 
entered data into a common multipurpose subroutine, 
usually accessed by a GOSUB statement. 

Input processors represent an expansion on the 
subroutine concept. Subroutines can greatly simplify new 
program development. Not only can standard edits be 
performed, such as date validation and checking for 
numeric fields, but the input data can be returned to the 
main program in a standardized format. For example, why 
code this: 

2130 INPUT "Want to enter more"; YN$ 

2140 IF YN$="YES" OR YN$="yes" OR YN$="Y" 

OR YN$="y" THEN 2000 
2150 IF YN$="ND" OR YN$="no" OR YN$="N" 

OR YN$="n" THEN END 
2160 PRINT "<ERR0R> Enter YES or NO" 

: GOTO 2130 


(Bill Qualls is an assembly language programmer and 
project leader at May & Speh, Inc., Midwest computer 
service bureau. Bill has a bachelor's degree in accounting 
and in June completed his MBA. He is also a computer's 
merit badge counselor for local area Boy Scouts.) 


when instead you can call a subroutine which will allow 
the user to enter “yes/ no” in any of the above formats, 
but will always return ‘Y’ or 4 N.’ This is much easier: 

500 LINEINPUT YN$ 

510 IF YN$="YES" OR YN$="yes" OR YN$="Y" 

OR YN$="y" THEN YN$="Y" 

: RETURN 

520 IF YN$="N0" OR YN$="no" OR YN$="N" 

OR YN$="n" THEN YN$="N" 

: RETURN 

530 PRINT "<ERROR> Enter YES or NO" 

: GOTO 500 

2130 PRINT "Want to enter more?"; 

: GOSUB 500 

: IF YN$="Y" THEN 2000 ELSE END 

I have seen input processors in school, in magazines and 
in the work place. Those I have seen can be grouped into 
three classes: Multiple Routine, Columnar Orientation and 
Multiple Variable. 

Multiple Routine 

This is the better-than-nothing class of input processors. 
The prompts for the data are issued from the main body 
of the program, but the editing of the data is isolated into 
common modules. The type of data required dictates which 
routine is to be called. For example: 
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To receive 


Return 

( ) data 

GOSUB ( ) 

variable 

String 

200 

STS 

Numeric 

300 

NM# 

Date 

400 

DTS 

YES/NO 

500 

YN$ 

2130 PRINT 

"Enter Gross 

Sales"; 


: GOSUB 300 
: GS = NM8 

Some programmers have taken a big step toward 
improving this style by using a variable to indicate which 
type of data is required and calling a “master” routine 
which then decides which subroutine should additionally 
be called. For example: 


2130 PRINT "Enter Gross Sales" 

: TY$ = "Y" 

: GOSUB 100 
: GS = NM8 

Columnar Orientation 

One cannot read a trade magazine or paper today without 
encountering the phrase “user friendly.” (So much of what 
is commonly termed “user friendly” turns out to be “user 
boring,” but that’s entirely another issue.) While we 
continue to emphasize the importance of writing programs 
which are user friendly, too many programmers continue 
to write programs (and input processors) which are a 
nightmare for those who inherit them. There is nothing 
friendly about: 

2130 QQ$ = "N00000000000 00999999999 


To receive 



Return 

( ) data 

Let TY$ = 

GOSUB ( ) 

variable 

String 

“S” 

200 

STS 

Numeric 

“N” 

300 

NM# 

Date 

“D” 

400 

DTS 

YES/NO 

«Y” 

500 

YNS 


Enter Gross Sales" 

: GOSUB 100 : GS = NM8 

In this particular example, ‘N’ in Column 1 indicates that 
a numeric entry is required. Columns 2-12 and 14-24 
indicate the minimum and maximum allowable values. 


Figure 1 

1) Access DRIVER. BA from the main menu. (7) Enter QQ$ Enter Bi rthdate , DATE 

Enter Birthdate 11-8-56 


(2) Loading Input Processor... 

♦Wait* 

(3) DRIVER. BA LIST .DO TAXES .DO 

Q-SCRN . DO Q-TEST . DO ADRS .DO 
BILLY .DO STAT .DO HEXDEC. DO 

Enter Program Q-TEST 


(4) Merging Q-TEST. DO 

Press CF4] to run when merge complete. 
♦Wait* (8) 

Ok 

(5) Press CF41. 

(6) Enter QQ$ Enter State, LEN=2,ALLUP 
Enter State Illinois 


< ERROR > Max Str Len 2 
Enter State il 

IL 2 

Enter State ca 

CA 2 

Enter State / 


11-08-56 561108 

Enter Birthdate 02/29/85 


<ERR0R> Date mm-dd-yy 
Enter Birthdate 02/28/85 


(9) 


02-28-85 850228 

Enter Birthdate / 


Enter QQ$ Enter Age,MAX=70,MIN=16 

Enter Age ten 

<ERR0R> Num Reqd 

Enter Age 10 

<ERR0R > Min Value 16 
Enter Age 71 

< ERROR) Max Value 70 
Enter Age 28 

28 28 
Enter Aqe / 

Enter QQI / 

Ok 
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respectively. Columns 13 and 25 are used to indicate 
negative values. Column 26 through the end of QQ$ indicate 
the prompt. The meaning of the various columns will 
change depending on the contents of Column 1 . 

My criticism with this type of input processor stems from 
my general contempt for any column-oriented coding 
scheme. Column counting should have died with punched 
cards. 

Multiple Variable 

The first input processor I learned was of this type. Rather 
than passing a single string variable which is then parsed 
out, multiple variables are passed, each of which triggers 
some course of action within the subroutine. Consider: 

2130 00$ = "Enter gross sales" 

: OLtt = 0 
: QNtt = 0 

: QM# = 3333333.33 
: GOSUB 100 
: GS = QS# 

In this particular model: 

QQ$ — indicates the prompt to be displayed on the 
screen. 

QL# — is the maximum length of the string to be 
returned in QS$ or, if zero, indicates that a 
numeric value is to be returned in QS#. 

QN# — is checked only if QL# is zero and indicates 
the minimum allowable value of QS#. 

QM# — is checked only if QL# is zero and indicates 
the maximum allowable value of QS#. 

This type of input processor is an improvement over 
the columnar orientation in that it is more self-documenting: 
At least you don’t have to count columns. My criticism 
with this format is the number of variables that must be 
remembered and set. 

A Better Input Processor 

Q-SCRN : The input processor suggested here provides 
the following advantages over those previously mentioned. 

1) All calls are to one routine only: GOSUB 100. 

2) Only one variable is passed to the routine: QQ$. 

3) Only two variables are used to return data; string 
variables are returned in QS$ and numeric values are 
returned in QS#. 

4) Additionally, only QQ!, QQ#, QQ%, QS! and QS% 
are used by the subroutine. All other variables are 
available for main program use. 

5) The key words contained within QQ$ are easy to learn 
and easy to code; no column counting. 

6) The format of QQ$ is reasonably self-documenting. 

Regarding comment number 6, consider the following. 
Even prior to a detailed explanation of the subroutine, 
the reader can probably determine the desired input for: 

0Q$ = "Enter name t LEN=20" 

00$ = "Enter Soc-Sec-Nbr , S5N" 

00$ = "Enter hire date, DATE" 

00$ = "Enter age,MIN=16,MAX=70" 

00$ = "More?, YESNO" 


The Q-SCRN coding rules: The general format for QQ$ 
is: 00$ - "prompt, option-1, option-2, . - . ,option- 
n". Commas (,) are used as delimiters in QQ$. Everything 
up to the first comma is assumed to be the prompt and 
will be displayed for the user. Consequently, the prompt 
should not contain embedded commas. Q-SCRN uses the 
LINE INPUT verb, so if you want a question mark to be 
shown you must include it in the prompt. The various 
options, or key words, follow the prompt. Remember that 
commas are used to separate the options. Table 1 shows 
the Q-SCRN options. 

The Source Code 

The routine uses lines 100 through 199. There are three 
reasons for this. First, since BASIC must go to the top of 
the program and sequentially search for the beginning of 
a subroutine everytime a GOSUB is used, execution time 
can be saved by putting commonly used subroutines at 
the front of the program. Second, the range was limited 
to the one hundreds so other subroutines can be placed 
in 200 through 299, 300 through 399, etc. Third, using 
a three-digit line number saves 133 bytes over a four-digit 
line number and 233 bytes over a five-digit line number. 
This is of little concern to Model 2000 users, but is of 
some significance to Model 100 users. A more detailed 
explanation of some portions of the code follows. 

Line 101 checks to see if the screen should be cleared 
prior to showing the prompt. The screen is cleared only 
once for a given prompt, so that any error messages will 
not be wiped out. 

Line 102 displays the prompt, which is the contents of 
QQ$ up to the left-most comma. 

Line 103 initializes the return values. QS$ is set to the 
null string and QS# is set to zero. This is necessary in 
order to allow a null entry (just pressing ENTER). Were 
these left out, QS$ and QS# would remain unchanged. 

Line 105 checks to see if a slash (/) has been entered. 
In my programs a slash is allowed at all times and indicates 
that the user would like to quit. If you prefer to use some 
other character, such as the ESC key, or a character string, 
such as “QUIT”, code that here. If you prefer to do that 
type of checking within the main body of your program, 
then delete Line 105. 

Lines 106 through 114 determine which type of data 
is required and branches to the appropriate routine. If your 
QQ$ does not contain one of the options shown, then Line 
119 will display an error message, show the value of QQ$ 
and STOP program execution. 

Lines 120 through 125 process requests for string input. 
Line 120 is the first of several lines to use GOSUB 198. 
Lines 198 and 199 set QQ# to the amount specified after 
LEN=, MAX= and MIN=. For example, if QQ$="Enter 
name , LEN=20" then QQ# will be set to 20. Line 121 will 
print an error message if the string is longer than allowed. 
Line 122 makes sure some entry has been made, other 
than a null entry, unless the OPT option is used. Lines 
123 through 125 will change all lowercase letters to 
uppercase if the ALLUP option is used. 

Lines 1 30 through 1 46 process requests for numeric input. 
Line 131 makes sure some entry has been made, unless 
the OPT option is used, in which case default entry is 
zero. Lines 132 through 140 perform edits to make sure 
the entry is numeric: a plus sign or minus sign is allowed 
(but not required) as the first character, no more than one 
decimal point is allowed, and all other characters must 
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be zero through nine. Lines 142 through 146 check that 
the number is within the allowable range. 

Lines 150 through 157 process the ACID option, or Add- 
Change-Inquiry-Delete. This option is useful for file 
maintenance or inquiry programs. As pointed out in Table 
1, a variety of input is accepted but the returned values 
are standardized, simplifying the coding required by the 
main program. QS# is set to one, two, three or four, 
providing for use of the ON verb. For example: 


Table 1 

j : Keyword 

! Example 

Effect 

! Returned Value 

I LEN 

i LEN=10 

LEN indicates a 

! QS* = string 



string field is 

! QS# = LEN (string ) I 


! 

required, the 

! ! 


! 

length of which 

! ! 


I 

1 

! cannot exceed the 

1 1 


1 

! value specified. 

; i 

! MAX 

1 MAX = 80 

i MAX indicates a 

! QS# = value ! 


; 

! numeric field is 

! ;! 


! 

! required, the value 

1 1 

! t 


! 

! of which cannot 

! 1 


! 

! exceed the value 

« 1 


! 

! specified. 


i MIN 

! M I N=- 1 0 

! MIN is optional , 

! QS# = value 


I 

! but if used, must 



! 

! be used with MAX. 


{ 

: 

! The value entered 

1 ! 


! 

! by the user must 



1 

! be greater than 

! ! 

! 

1 

! or equal to the 



1 

! value specified. 

! ! 


: 

! When MAX is used 


ih i : liilii 

: 

1 without MIN, the 

J I 

i: 

! 

! default minimum 


» 

i 

1 value is zero. 

1 1 

» 

! ACID 

! ACID 

! Allow entry of : 


I::: 


i ADD A add a 

: QS* = "A" QS# = 1 ;! 

J: : 

t 

1 

1 CHANGE C change c 

! QS* = "C" QS# = 2 ! 


! i CH ch ! { 

! i INQUIRY I inquiry i ! QS* = "I" QS# = 3 i 



! 

! 

S INQ inq i 

{DELETE D delete d ! 

! DEL del ! 

I QS* = 

"D" QS# = 4 ! 

* « ti it * it * * * * n * y* ] * • v ■ i 

: ACK 

! ACK 

1 ACKnowlege; display 

n/a 

• ' ********** 1 



I prompt then wait 




i 

} for user to press 


* i 

1 

1 

! 

{ENTER key. 


i 

1 

! OPT 

! OPT 

{ OP T i onal ; the user 

QS* = 

- , 

"" (null) 1 


! 

! may just hit ENTER. 

or depends on I 


! 

{However if an entry 

other 

options* ! 


! 

! i s made i t must 


* 


! 

I meet the conditions 


* 


! 

1 specified by the 


i 

, 


| 

{other options. 


i 

CLS 

1 CLS 

j Clear the screen 

n/a 



! 

! prior to displaying 




1 

I the prompt. 



SSN 

: ssn 

! A valid social 

QS* * 

"nnn-nn-nnnn" ! 



! security number is 

QS# = 

nnnnnnnnn ! 


! 

! to be entered in 




1 _ ’ 

! nnn-nn-nnnn format. 




J 

! (Hyphens required. ) 



DATE 

! DATE 

! A date is to be 

QS* = 

"mm-dd-yy" ! 



! entered. Many 

QS# = 

yymmdd I 


! 

! formats will be 





! accepted, but all 




I 

! are returned in 




j 

! mm-dd-yy format . 




: 

! For example: 





! enter return 




J 

! 1-1-04 01-01-04 




! 

! 02/29/84 02-29-84 


1 


1 

! 02/29/85 (ERROR) 









2130 QQ$ = "Enter option, RCID" 

: G05UB 100 

2140 ON QSB GOTO 2300, 2400, 2500, 2600 

2150 CLOSE 
: END 

Recall that QS# was initialized to zero, so if QS# does 
not equal one, two, three or four, then the user must have 
entered a slash (/) indicating he wanted to quit, hence Line 
2150. 

Lines 160 through 169 process requests for a Social 
Security number. I felt it was important to try to force 
the user to be careful in entering the number, so I require 
the entry to be in “nnn-nn-nnnn” format. This does not 
mean you must use it in that format; QS# is also returned 
with the numeric equivalent. 

Lines 173 through 175 process requests for a “yes” or 
“no” response. As with the ACID option, a variety of inputs 
are accepted, but the returned values are standardized. QS$ 
will always be ‘Y’ or ‘N’ and QS# will always be ‘1’ or 
‘0.’ I did not set QS# to ‘2’ and *1\ which would have 
made use of the ON verb possible as in the ACID option, 
because ‘Y’ and ‘N’ are commonly equated to ‘1’ and ‘0’ 
in Boolean algebra. If you prefer 2 and 1, change the QS# 
assignment in lines 173, 174, 177 and 179. 

Lines 180 through 197 process DATE requests. Again, 
the dates are accepted in a variety of formats, but are always 
returned as “mm-dd-yy.” The numeric equivalent of 
yymmdd is also returned in QS#. Q-SCRN includes a check 
for leap year. “02-29-84” would be valid but “02-29-85” 
would cause an error. January 6, 1939 could be entered 
as: 

1/6/39 01/6/39 1/06/39 01/06/39 

1-6-39 01-6-39 1-06-39 01-06-39 

For all of the above, QS$ = “01-06-39" and QS# = 390106. 

Making the Best of it with the Model 100 

Q-SCRN can be used with the Model 2000 or the Model 
100. Model 2000 users can, if desired, maintain a copy 
of Q-SCRN in each program that uses it, but Model 100 
users don’t have enough RAM to do that. I recommend 
the following, which will load Q-SCRN as needed. 

1) Add the following (Line 10) to Q-SCRN and store 
the program as a text file (Q-SCRN. DG) 

10 CLS 
: FILES 
: PRINT 

: QQ$ = "Enter program , LEN=6 , RLLUP" 

: G05UB 100 

: IF QS$ = "/" THEN MENU ELSE FL$ = 

QS$ + ".DO" 

: CLS 
: PRINT 

: PRINT "Merging FL$ 

: PRINT "Press [F4] to run when merge 
complete . " 

: MERGE FL$ 

2) All programs should begin with Line 10 indicating 
the first line of the program. I suggest GOTO 1000. This 
will branch around the subroutine and erase the Line 10 
as in number 1. Programs should not include any lines 
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Full Featured, Proven ... 

ACCOUNTING SOFTWARE 

General Ledger 
Accounts Receivable 
Accounts Payable 

PER Payroll Including State & Local Taxes 

SYSTEM Inventory With Purchase Order & Order Entry 



or ALL SYSTEMS ABOVE for 


*50 

TOTAL 


Runs on IBM (PC jr/PC/XT/ AT), AT&T, EPSON, TANDY (1000/1200/2000), TI, 
WANG, COMPAQ, CORONA, SANYO, COLUMBIA* 

Requires 128K RAM, 2 Floppies or Fixed Disk, 80 Column Printer, MS-DOS, PC- 
DOS 2.0 or later. 


To do special FORECASTS, REPORTS, ANALYSES, 
etc., — You may use . . . 

Lotus 1-2-3 Framework Symphony 

Dbase II/III Wordstar Condor 

Multiplan Word Perfect My Word* 

or any other Database, Word Processor or Spread 
Sheet package that you are now using with our data 
files. 

The + (plus) key on the IBM keyboard functions as 
an ENTER key for data entry. 

Exceptionally easy setup. From package to com- 
puting in less than 1 HOUR. 

All systems use generally accepted accounting prin- 
ciples. 

Detailed manual is on diskette, you print it in your 
printer. 

Disks are NOT Copy Protected!! 



☆ ☆ ☆ 



MICROCOMPUTER TO ORDER CALL: 

BUSINESS SERVICES 1-800-334-0854 

12703 Stuebner Airline K xtension 826 

Suite 202 For More Information 

Houston, TX 77014 Call (713)583-6828 


ATTENTION DEALERS!!! 
Call or Write Now for the 
VERY BEST MARGINS 
(over 50%) in the Industry. 


Service Contract Available 
Shipping Charges $5.00 

Texas Residents add 6-1/8% tax 
COD Charges $5.00 

Payment by Check, MC or VISA 
MONK Y BA CK G UA RA NT EE! 


Computer & software names are trademark or registered by their respective manufacturers. 








numbered 100 through 199. All programs should be stored 
as text files in order to use the MERGE verb. 

3) Create DRIVER. BA as shown. DRIVER.BFl is accessed 
from the main menu anytime a program is to be run: 

10 CLS 
: PRINT 

: PRINT "Loading Input Processor ..." 

: LOAD "Q-SCRN.D0",R 

To familiarize yourself with the subroutine, create the 
following program, Q-TEST , and store as a text file. 

10 Qq$ = "Enter qq$,LEN=100" 

: GOSUB 100 


: IF qs$ = "✓" THEN END ELSE QQ$ = QS$ 

20 GDSUB 100 

: IF qs$ = 'V" THEN 10 ELSE PRINT QS$, qstt 
: GOTO 20 

From the main menu, access DRIVER. BA. When 
prompted, merge q-TEST.DO. Press F4 to run. Q-TEST 
will allow you to practice using Q-SCRN. Q-TEST will 
prompt for values of QQ$, then GDSUB 100 using the QQ$ 
you have specified. This will also allow you to check that 
Q-SCRN was keyed properly. A sample session is shown 
in Figure 1. 

With a little practice you will feel very comfortable using 
Q-SCRN. New program development will be greatly 
simplified. Hope to see some of those programs here soon. 
Good luck! 


Listing 1: DRIVER 

10 CLS: PRINT: PRINT “Loading Input Process 
or. . , " s LOAD "Q-SCRN. DO" jR 


Listing 2: q-SCRN 

10 CLS: FILES! PRINT: SS$»" Enter Program, LE 
N= 6 , ALLUP " s GOSUB 100: IF 0SI="/ "THENMENUE 
LSEFL$=QS$+". DO": CLS: PRINT: PRINT "Merging 
";FL$: PRINT "Press IF4J to run when mer 
ge complete. ":MERGEFLI 

100 'Screen Input Routine Version 2.0 

101 IF INSTR ( 1 , QQI, " , CLS" ) < >0 THEN CLS 

102 PRINT LEFT$(QQ$,INSTR(1,QQ$,",")-1>; 

103 QS$=" 11 : QS#=0 

104 LINE INPUT “ "5 QS$ 

105 IF QS$="/ " THEN RETURN 

106 IF INSTR ( 1 , QQI , " , ACK" ) < >0 THEN RETUR 
N 

107 IF INSTR < 1 , QQ$ , " , LEN =" ) < )0 THEN 120 

108 IF 1 NSTR ( 1 , QQI , MAX® "X >0 THEN 130 

109 IF INSTR ( 1 ,QQ$, " , ACID" ) < >0 THEN 150 

110 IF INSTR ( 1 , QQ$ , " , YESNO" ) < >0 THEN 173 

111 IF INSTR ( 1 , QQI , " , YES" ) < >0 THEN 176 

112 IF INSTR(1,QQ$,",NO")<)0 THEN 178 

113 IF I NSTR ( 1 , QQI , " , SSN" ) < >0 THEN 160 

114 IF INSTR ( 1 , QQI, " ,DATE" ) < >0 THEN 180 

119 PRINT "< ERROR) Bad QQ$= " ; 00$ : STOP 

120 QQ7. = INSTR < 1 , QB$ , " , LEN=" ) +5: GOSUB 198 

121 IF L£N(BS$> >QQ# THEN PRINT "<ERR0R> 
Max Str Len 00#: GOTO 102 

122 QS#=LEN (QSI) : IF QS#=0 THEN IF INSTR < 
1,00$ , " , OPT " ) =0 THEN PRINT "< ERROR) Entr 
y Reqd" : GOTO 102 ELSE RETURN 

123 IF INSTR ( 1 , 00$ , " , ALLUP" ) *0 THEN RETU 
RN ELSE FOR 00 ! *1 TO QS# 

124 QQ7.=ASC (MIDI (QS$ , QQ ! , 1 ) ) : IF 007.= >97 
AND 007, < = 1 22 THEN MI D$ ( QS$ , 00 ! , 1 ) = CHR$ < 

0Q7.-32) 

125 NEXT 00 ! : RETURN 


130 'Nbr Reqd 

131 IF LEN < QS$ ) *0 THEN IF INSTR ( 1 , 00$ , " , 
OPT " ) =0 THEN 140 ELSE RETURN 

132 0Q ! =0 'Count decimal pts 

133 FOR 007. » 1 TO LEN(0S$) 

134 IF 007,= 1 THEN IF MIDI (QSI ,007. , 1 ) = " + 
" OR MIDI <0S$ ,007. , 1 ) ="-" THEN 139 

136 IF MIDI (0S$,Q07. , 1 ) = " . " THEN Q 0 !=QB! 
+ 1 : GOTO 139 

137 IF MIDI (0S$ ,007., 1) < "0" OR MIDI (QSI, 
007. , 1 ) >"9" THEN 140 

139 NEXT Q07.: IF 00 !< = 1 THEN Q5#=VAL(Q5$) 

: GOTO 142 

140 PRINT "<ERR0R) Num Reqd":G0T0 102 

142 Q07.= INSTR ( 1 , 00$ , " , M IN " ) 

143 IF QQ7.=0 THEN 00#=0 ELSE 007.=007.+5: G 
OSUB 198 

144 IF 0S#<00# THEN PRINT "< ERROR) Min V 
alue";QQ#:G0T0 102 

145 007.=INSTR ( 1 , 00$ , " , MAX = " ) +5: GOSUB 198 

146 IF 0 S#> 00 # THEN PRINT ”<ERR0R> Max V 
al ue" s 00#: GOTO 102s ELSE RETURN 

150 ' A-C-I-or-D Reqd 

151 IF 0S$="ADD" OR 0S$="add" OR QS$="A" 
OR 0S$="a" THEN QS$="A" : 0S#=1 : RETURN 

153 IF 0S$="CHANGE" OR QS$="change" OR Q 
S$="C" OR 0S$="c" OR 0S$= " CH" OR 0S$="ch 
" THEN QS$="C":QS#=2: RETURN 
155 IF 0S$=" INQUIRY " OR QS$=" inquiry" OR 
QSI-"!" OR QS$=" i " OR QS$="IN0" OR QS$= 
"inq" THEN 0S$= " I" : 0S#=3: RETURN 
157 IF QS$= "DELETE" OR QS$*"delete" OR Q 
SI="D" OR 0S$="d " OR QS$="DEL" OR QS$*"d 
el" THEN QS$= "D" : QS#=4: RETURN 

159 PRINT "<ERR0R> Add, Change, Inquiry 
or Del ete" : GOTO 102 

160 'SSN Reqd 

161 IF LEN (QSI) =0 THEN IF I NSTR ( 1 , 00$ , " , 
OPT" > < >0 THEN RETURN ELSE PRINT " <ERRQR) 

SSN Reqd": GOTO 102 

162 IF LEN (QSI) Oil THEN 169 

163 FOR 007. = 1 TO 11 
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164 IF QQ7.=4 OR QG7.=7 THEN IF MIDI (QSI, 
Q Q7. , 1 ) ="-" THEN 166 ELSE 169 

165 IF MIDI (QSI , SQ7. , 1 ) < "0" OR MIDI (QSI, 
QQ'/. , 1 ) > " 9 " THEN 169 

166 NEXT QQ 7. 

167 QS# = VAL (MIDI (QSI, 1 ,3) + MIDI(QSI,5,2 
) + MI Dt ( QSI ,8,4) ) sRETURN 

169 PRINT "<ERROR> SSN Fmt xxx-xx-xxxx " : 
GOTO 102 

173 IF QSI= " YES " OR QSI = "yes" OR QSI*"Y" 
OR QSI = "y " THEN QSI="Y" : QS#=1 : RETURN 

174 IF QSI*"NO" OR QSI = "no M OR QSI="N" 0 
R QSI="n" THEN QSI* "N" : QS#=0: RETURN 

175 PRINT "<ERROR> YES or NO"sGOTO 102 

176 'YES or NO Reqd Default YES 

177 IF LEN ( QSI ) =0 THEN QSI* " Y " : QS#= 1 : RET 
URN ELSE GOTO 173 

178 YES or NO Reqd Default NO 

179 IF LEN ( QSI ) =0 THEN Q5I=" N" : QS#=0: RET 
URNsELSE GOTO 173 

180 'Date mm-dd-yy Reqd 

181 QQ7,= INSTR ( 1 , QSI ,"/"): IF QQ7.< >0 THEN 
MIDI (QSI , QQ7. , 1 > = GOTO 181 

182 IF M I Dl ( QSI , 2 , 1 ) *" - " THEN QSI="0"+QS 
$ 'Fix m-dd-yy 

183 IF MIDI (QSI ,5,1)="-" THEN QSI=LEFTI( 
QSI , 3) + "0"+R IGHTI ( QSI , LEN ( QSI) -3 ) 'Fix m 
m-d-yy 

184 IF LEN ( QSI ) < >8 THEN 191 ELSE FOR QQ! 
= 1 TO 8 

185 IF QQ ! =3 OR QQ ! =6 THEN IF MIDI (QSI, 
QQ! ,1)0"-" THEN 191 ELSE 187 

186 IF MIDI (QSI , QQ ! , 1 ) < " 0" OR MIDI (QSI, 
QQ! , 1) > " 9 " THEN 191 

187 NEXT QQ! 

18S QQ7.=VAL (MIDI (QSI, 4, 2) ) : IF QQ7.<1 THEN 
191 

190 ON VAL ( LEFTI ( QSI , 2 ) ) GOTO 192,194,19 
2,193,192,193,192,192,193,192,193,192 

191 PRINT "< ERROR) Date mm-dd-yy" : GOTO 1 
02 

192 QQ ! =3: GOTO 195 

193 QQ ! =2 : GOTO 195 

194 QQ ! = VAL (RIGHT$(QSI,2) )/4:QQ! =ABS (QQ ! 
=INT (QQ ! ) ) 

195 QQ ! =QQ ! +28: IF QQ7. >QQ ! THEN 191 

197 QS# = VAL ( M ID! ( QSI ,7,2) + MIDI (QSI, 1 
,2) + MIDI(QSI,4,2> ) sRETURN 

198 QQ ! = INSTR (QQ7. , QQ! ,","): IF QQ!*0 THEN 
QQ ! =LEN ( QQI ) + 1 

199 QQ ! =QQ ! -QQ7. : QQ#=VAL ( MI Dl ( QQI , QQ7. , QQ ! 

) ) sRETURN 

Listing 3: Q-TEST 

10 QQI= "Enter QQI , LEN=1 00 " : GOSUB 100: IF 
QSI= " / " THEN END ELSE QQI=QSI 
20 GOSUB 100: IF QSI*"/" THEN 10 ELSE 
PRINT QSI , QS# : GOTO 20 


Call Delkenl 
The accessibl 



Tandy 1000 represents the state 
of the art in performance, 
quality and price breakthrough. 


When you buy from Delker Electronics you can be 
sure you are getting high quality factory direct equipment at 
very competitive prices. Plus, you are getting the experience 
in computer maintenance and sales 
that comes from many years of 
experience in the field. 


DELKER ELECTRONICS, INC. 

P.O. Box 897 408 C Nissan Blvd. 

Smyrna, TN 37167 

800-251-5008 615-459-2636 

(Tennessee) 

800-545-2502 615-254-0088 

(Tennessee) (Nashville) 

Visa , Mastercard and American Express accepted. 
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It’s the Holmes Engineering/PCSG “chipmunk” 



Uses the main menu concept. You see the 
disk directory instantly, arranged on your 
M-100 screen like your main menu. Just move 
the widebar cursor and transfer files with a 
function key. You can run a file directly from 
the diskette with the ENTER key. Uses 3'/2" 
microfloppy diskettes that have a rigid plastic 
casing and a metal core. They’re tough and 
nonflexible. You can carry several in a shirt 
pocket without damage. There’s 35 8 K on a 
diskette. Ten of these in your briefcase and 
you’ve got 3Vi megabytes. 

Drive weighs only three lbs. and it works 
directly from the 1 10 outlet and recharges at the 
same time. It recharges in six hours with 
thousands of pages transferred between 
charges. It’s compact, with dimensions of 2!4" 
x 5Vi x 7.5"; and fits easily into your briefcase 
along with your Model 100 or 200. 

Machine code programs, BASIC pro- 
grams, Lucid files and documents all arc saved 
and retrieved with no protocol-instantly, ready 
to run. 

In a special association, Holmes En- 
gineering and PCSG have worked together 
combining the hardware knowledge of Holmes 
and the software expertise of PCSG. The re- 
sult is a product that can only be regarded as 
excellent. 


You see the disk directory 
instantly; works just like the 
main menu 


Here is what is really exciting. The port- 
able disk drive has Random Access. Included 
as part of the operating system in the drive 
(ROM) is a very powerful disk BASIC. 

This means that you can have BASIC 
programs that will access the diskette and read 
and write records directly on the diskette. 

Just imagine yourself with this kind of 
capability. 


Database- The portable disk drive stores 
your mailing list, inventory items, part #s and 
descriptions or any other data that you need 
to recall. 


358K on a diskette 


Invoice ( purchase order)- At the touch of 
a button you can print out your sequentially 
numbered, professionally done invoices. This 
is truly professional invoicing capability. 

Purchase orders are just as easy. 

Sort - This excellent utility allows you 
rapid sorting of any records you have compiled. 
You can write the newly sorted list back in the 
same file on the diskette or to a new file. 

Telecom interface -If you are a user that 
likes to access other computers or databases 
(for example CompuServe) by telephone then 
this powerful facility alone is worth the price of 
the disk drive. You can automatically download 
and upload information onto the diskette. 

Calendar - Everyone who has seen this 
program has said, “This is the first calendar/ 



diary/scheduler on any computer anywhere that 
I can use. It is so functional.’’ 

The calendar program is usable for two 
reasons, first it is designed correctly, and 
second you have the memory (358K) on the 
diskette to log and access a tremendous amount 
of notes over a long period of time. 

Personal Finance Manager - This 
wonderful program truly lets you keep track of 
your finances. 

All your records are kept on the diskette. 
Bank accounts (checking and savings) and 
charge accounts such as MasterCard and Visa. 

We at PCSG believe we have the ultimate 
Model 100 system, the Portable Disk Drive 
plus the Lucid spreadsheet on snap-in ROM, 
Write ROM word processing and the new 64K 
RAM expansion now available from PCSG. 

We want you to find out for yourself at no 
risk. If you aren’t totally satisfied within 30 
days, simply return the disk drive for a full 
refund. Priced at $599.95, including the soft- 
ware library. MasterCard, Visa, COD. 


PORTABLE 

CDMRJTER 

KURORT 

ORQJP 

1 - 214 - 351-0564 

11035 Harry Hines Blvd., #207 
Dallas, Texas 75229 



PCSG offers a 30-day/money-back trial! 
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Manipulating RAM 
Files in the Tandy 200 


By Carl Oppedahl 


(Carl Oppedahl is a lawyer specializing 
in technological litigation. He is the 
author o/Inside the TRS-80 Model 1 00, 
published by Weber Systems , Chester - 
land, Ohio.) 


A fter downloading a document 
file from my TRS-80 Model I 
to my Tandy 200, there was my 
. DO file on the screen. Square root signs 
appeared where tabs should have been, 
and carriage returns did not display 
correctly. 

I figured out an easy way to fix the 
-DO file and it is described here. 

If you read this article you will learn 
how .DO files are stored in RAM in 
the Tandy 200, and you’ll see how some 
ROM subroutines may be used in 
BASIC. You can use these techniques in 
many other ways. The methods I 
describe here also apply to the Model 
100 . 

The Problem 

Because of the limited memory 
capacity of the Tandy 200 I sometimes 
load a file from the 200 to a larger 
machine — in my case a TRS-80 Model 
I. Later I load the file back to the Tandy 
200. Usually I' find the document file 
to be in the same condition as before 
the transfer, but on several occasions 
the file looked strange. A square root 
sign appeared where a tab should have 
been, while a plus/ minus sign showed 
up where the carriage return should 
have been. This is illustrated in Listing 
1 . 

A review of my actions while using 
the Model I revealed the cause. While 
the document file was on a Model I 
disk, I had edited the file using Scripsit. 
Scripsit reads a file from disk into 


RAM, then when editing is finished it 
writes the file back out onto disk. 

As I later learned, the reason the .DO 
file in the Tandy 200 looked funny is 
it came from a Model I disk file that 
had been written out by Scripsit. 
Scripsit had modified the text before 
writing it back to disk. Scripsit stores 
control characters such as the tab and 
carriage return with bit 7 on. The tab, 
stored by the Tandy 200’s TEXT 
program as a decimal value of nine, is 
stored by Scripsit as a 137 (9+128). 
Similarly, the carriage return, stored by 
TEXTzs a decimal value of 13, is stored 
by Scripsit as a 141 (13+128). What’s 
worse, TEXT indicates end-of- 
paragraph with a two-character se- 
quence, CHR$ ( 13 )+CHR$ ( 10 ) , or with 
a carriage return and line feed, while 
Scripsit uses a one-character sequence, 
CHR$ ( 141 ) . 

The character with the value of 137 
shows up on the Tandy 200 screen as 
a square root sign, which explains the 
spurious square roots of Figure 1. The 
141 character shows up as the plus/ 
minus character, which explains the 
plus/ minus signs of Figure 1. 

Designing a Solution 

The problem, then, was that my . DO 
file had strange, inappropriate charac- 
ters in it. The simplest solution would 
have been to go through the document 
with TEXT searching for the incorrect 
characters with FI (Find), deleting 

August 1985 PCM 57 




ITS 
ONLY 
4V2 LBS 


The Tandy 200 is the one portable for all. 

Meet the New Generation 
of Portable Computing 

Our celebrated Model 100 set a 
new standard in portable comput- 
ing. Now we’ve done it again! Intro- 
ducing the Tandy 200, another true 
breakthrough, featuring advanced 
features you requested. You get 
more built-in software, a bigger 
screen and a larger memory. All this 
in a system that measures just 
2V4 x 11 3 /4 x 8V2" and goes wher- 
ever you go because it’s completely 
battery powered. 



Six Built-In Programs 
Including Multiplan™ 

For complex spreadsheet analy- 
sis and calculations, we put popular 
Multiplan software into the Tandy 
200’s permanent memory. It’s easy 
to do sales forecasts, profit and loss 
projections, budgeting, pricing, en- 
gineering calculations and more. 

Comes with Five More 
Powerful Programs 

An improved version of the Model 
100’s easy-to-use word processing 
program makes the Tandy 200 es- 
pecially useful for journalists, sales- 
people, students and anyone who 
needs to write letter-perfect memos, 
reports and correspondence in a 
hurry. Edit, delete and move blocks 
of text with the touch of a conven- 
ient function key. 

Four other “instant-on” programs 
let you use the Tandy 200 as your 
personal appointment calendar, ad- 
dress and phone directory and tele- 
phone auto-dialer/directory (the 
Tandy 200 generates tone dialing 
pulses, so you can use it with long- 
distance services). A much more 
powerful built-in program for com- 
munications makes it easy to ac- 
cess other computers by phone, 
as well as national information 
networks. Resident BASIC 
language lets you write your 
own programs, too. 



Radio /hack 

The Technology Store M 

A DIVISION OF TANDY CORPORATION 


Adopt One Today! 

Step up to the powerful software 
and impressive capabilities of the 
Tandy 200 portable computer for 
just $999 (26-3860). Best of all, the 
Advanced Technology Tandy 200 
represents the state of the art in 
performance, quality and price 
breakthrough (because we’ve intro- 
duced the latest technology for over 
60 years). Stop by your local Radio 
Shack Computer Center, or partici- 
pating Radio Shack store or dealer 
and “size it up” today! 

Prices apply at Radio Shack Computer 
Centers and at participating Radio Shack 
stores and dealers. Multiplan/TM Micro- 
soft Corp. 


Why 40 Columns Are 
“Bigger” than 80 

Take a look at the 80-column 
screens on other portables, and 
you’ll see why we chose a 16 x 40- 
character format. Characters on 80- 
column displays are tiny and 
difficult to read. Tandy 200’s flip-up 
liquid crystal display has 240 x 128 
resolution for big, clear graphics 
and easy-to-read characters. Tandy 
200 is the perfect take-along tool for 
word processing and spread- 
sheets — without eyestrain. 

We also increased the standard 
memory size to 24,000 characters, 
expandable to 72K. 


The Best in Technology 
for Under $1000 

Whether you’re a student, 
scientist, busy professional or 
home computer user, the 
Tandy 200 is a smart invest- 
ment. The Tandy 200 even 
has parallel printer, RS- 
232C, cassette and bar 
code reader interfaces 
for added versatility. You 
can even add disk stor 
age and a monitor for 
a complete desktop 
computer system. 



them, and inserting the correct char- 
acters. But my .DO file was very big, 
and the editing would have taken many 
hours. So I resolved to write a program 
to fix everything automatically. 

A False Start 

Usually when a file must be massaged 
in some way, the easiest way to get the 
job done is with a BASIC program. Open 
the .DO file for input, bring in the 
characters one by one and print them 
out (with changes or substitutions as 
necessary) to a second . DO file. By the 
time the program has finished, there are 
two .DO files in RAM of roughly equal 
size. I could not do this because the 
existing . DO file filled almost all of my 
RAM area. There was not enough room 
for the output file. 

One way to proceed would have been 
to write the .DO file out onto cassette 
tape, then kill the RAM .DO file, then 
let the BASIC program open the cassette 
file for input, sending its output to 
RAM. But cassette storage is slow and 
sometimes unreliable, and I had no 
recorder nearby. 

So I resolved to modify the .00 file 
directly where it sat in RAM. The 
advantage was that no cassette recorder 
was required, and the file corrections 
would be completed quickly. The 
disadvantage was that I had to figure 
out how to do it (using PEEKS and 
POKEs) without damaging my RAM 
files and possibly bringing about the 
dreaded return to January 1, 1900. The 
point of this article is to describe the 
program I came up with. 

The general strategy was this: 

— Locate the beginning of the .DO 
file in RAM 

— Find an aberrant character (square 
root or plus/ minus sign) by PEEIC- 
ing to successive memory locations 

— POKE in the correct character (tab 
or carriage return 

— Stop when the end of the file is 
reached. 

I will discuss these steps one by one. 

Locating the . DO File in RAM 

Many readers are familiar with the 
file directory used in the Tandy 200, 
and it is similar to that used in the 
Model 100 (see my article “The 
Searcher,” 80 Micro , June 1984, Page 
157). Briefly, the directory resides at 
F2B5 through F4AF Hex in the pro- 
tected system RAM area. Each group 
of 11 bytes represents one file — the 
first byte signals the file type, the second 
and third bytes give the file’s starting 


address, and the remaining bytes 
contain the filename. 

One way a BASIC program could get 
the starting address of a file, then, is 
by examining one by one the entries 
in the directory. If the file type is 192, 
in other words a non-killed .DO file, 
then the filename should be checked. 
If the filename matches, then the 
address is given in the second and third 
bytes of the entry. 

This is rather a tedious kind of 
searching, though it can be done well 
enough in BASIC by means of the PEEK 
command. 

Another way to get the starting 
address of a .DO file is by means of 
certain ROM subroutines (CHKDC at 
6E4D and GTXTTB at 6E86). These 
routines cannot usefully be called 
directly from BASIC, however, because 
they return their information in registers 
of the CPU, and the CRLL command 
in BASIC makes no provision for 
returning register values to BASIC. 

To get around the limitation in the 
CALL command, a hardcore machine 
language programmer would use BASIC 
to call a machine language program 
which would itself call CHKDC and 
GTXTTB, take the values from the 
CPU registers and POKE them into a 
BASIC variable or put them in a place 
where they could be PEEKed by BASIC. 
Such a strategy requires resetting 
HIMEM, POKEing machine language 
values into RAM, CALLing them and 
messing up any other machine language 
programs above HI MEN. This would 
make the program very complicated. 

The Clean Way to Find the . DO File 

I finally worked out a way to get the 
starting address of the . DO file without 
resorting to machine language — what 
is needed are PEEKS and the VflRPTR 
function. Recall that VflRPTR is described 
in the Tandy 200 owner’s manual as 
applying to numerical variables. As it 
happens, VflRPTR may be applied to 


Figure 1. Spurious Characters 

Here is a line of text. ± Here is 
another line. ± Here is a 
tab V character. 


string variables (explained in “The 
Searcher” article) and may also be 
applied to open files. 

When a file has been opened, a file 
number is always assigned, say file 
number 1. The expression VflRPTR ( 81 ) 
then yields the address of what is called 
the file control block (FCB), located in 
the BASIC working space below HIMEM. 
(The number of FCBs in your Tandy 
200 at a particular moment is determined 
by the MAXFILE5 command.) 

The FCB contains various pieces of 
information, depending on the file type 
— CAS : , RAM : and so on. In the case 
of the FCB for a RAM file, the third 
and fourth bytes of the FCB give the 
address of the directory entry for the 
RAM file. 

For example, assume a RAM .DO 
file has been opened as file 1. After 
execution of I=VARPTER(81), then I 
points to the FCB for the file. In other 
words, PEEK ( I ) reveals the contents of 
the first byte of the FCB, PEEK(i+l) 
reveals the contents of the second byte, 
and so on. Here what we want is to 
extract from the FCB the location of 
the directory entry for the file; the 
information is in the third and fourth 
bytes. After execution of J=PEEI< 
( I+2)+256*PEEI<( 1+3), then J is the 
address of the directory entry. (Strictly, 
J points to the second byte of the 
directory entry. 

Given J, it is now an easy matter to 
extract from the directory entry the 
address where the -DO file begins in 
RAM. Here is how it is done: 
BEG=PEEI< ( J ) +256*PEEK ( J+l ) assigns 
to BEG the address where the .DO file 
begins. 


Listing Is Scripsit Correction Program 

10 INPUT “f ilename"} I ^ s OPEN II FOR INPUT 
AS Is I*VARFTR (#1)5 CLOSE: J*PEEK< 1 + 2) +256 
*PEEK ( I + 3 ) :BEG=PEEK(J)+256*PEEK(J+1) 

20 IF PEEK (BEG) =26 THEN PRINT^Done*' : BEEP 
s END: ELSE IF PEEK (BEG) = 141 THEN POKE BEG, 
i 3s BE6-BES+1 : CALL 27489, 10, BEG ELSE IF P 
EEK (BEG ) - 1 37 THENPQKE BEG, 9 
40 BEG-BEG+1 s GOTO 20 
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Finding Aberrant Characters 

Once the BASIC program has figured 
out where to find the . DO file, it is easy 
to locate the square root signs and plus/ 
minus signs. This is done by PEEKing 
to successive memory locations, looking 
for the value 137 or 141. 

When an aberrant character has been 
found, it is necessary to POKE in the 
correct value. This is the first truly 
dangerous part of the program. If an 
error occurred in typing in the program, 
the program may run amok, PDKEing 
numbers into parts of memory other 
than the -DO file. The likely result is 
a cold start — a return to the dreaded 
January 1, 1900. Be very careful with 
all POKEs. If you are not sure you typed 
in the program right, make backups of 
all your files before testing the program. 


Anyway, to fix an incorrect tab the 
correct code is IF PEEK (BEG) =137 
THEN POKE BEG, 3. 

Correcting an incorrect carriage 
return is somewhat more difficult. 
When the Scripsit-style carriage return 
is found, it is easy enough to PDKE in 
the value 13, but a line feed must also 
be inserted, moving up everything 


above it in the .DO file. 

Fortunately, the ROM subroutine 
IN5CHR (at 829C Hex or 33436 decimal), 
which inserts a character to a .DO file, 
may be used from BASIC. (In the Model 
100 it is at 6B61 Hex or 27489 decimal.) 
This routine “bumps” everything in the 
user RAM area up one position to make 
room for the inserted character. The 
move changes the boundary between 
.DO and .00 files and the extreme 
boundary of the .00 files, and INSCHR 
updates the pointers in system RAM 
that keep track of these boundaries. For 
example, the number of free bytes that 
would appear at the main menu di- 
minishes by one each time INSCHR is 
called. 

Here is how the Scripsit carriage 
return may be corrected: IF PEEK 
( BEG) =141 THEN POKE BEG , 13:BEG 
=BEG+1 :CRLL 33436 , 10, BEG. 

Stopping at End-of-File 

It is of extreme importance that the 
BASIC program stop its POKEing activity 
before wandering past the end of the 
-DO file. If the POKEing were to 
continue, it would mess up the system 
RAM area and would certainly cause 
a return to January 1, 1900. Since .DO 


files end with a Control-Z, or ASCII 
26 decimal, the right thing to do is watch 
for a 26, like this: IF PEEK (BEG) =26 
THEN PR I NT "DONE" : BEEP : END. 

Out of Memory 

This program increases the size of the 
.DO file for each carriage return 
encountered. This goes hand in hand 
with the fact that an otherwise identical 
Scripsit .DO file and TEXT. DO file will 
have different file sizes (the Scripsit . DO 
file is smaller). 

There is the possibility that if the . DO 
file comes close to filling up memory, 
the BASIC program may try to cause 
the .DO file to exceed the available 
memory. The BASIC program does not 
protect for this possibility explicitly, but 
the subroutine INSCHR will simply 
return (with the carry flag set, though 
BASIC won’t know that) without doing 
any further damage in the event that 
memory exceeded. 

Conclusion 

Through this article I have shown you 
a little about .DO file structure, and 
have illustrated some techniques for 
getting back and forth between machine 
language and BASIC. f^TTi 


COCO-UTIL 


The Connecting Link' 


SBHHHEil 


CoCo-Util is a valuable utility program that allows you to 
transfer Tandy Color Computer disc files to your MS-DOS 
machine. You may also transfer MS-DOS files to a Color 
Computer disc. CoCo-Util will save you countless hours of 
retyping. . .a great new utility. 


NEED MORE MEMORY? 


Set of 9 chips, 64K Upgrades. 
Great Bargain 


PRINTERS 


New Star Gemini SG-10 Model printer. 

120 cps w/true descenders, proportional 
spacing. New model for 1985. 
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MS-DOS ADVENTURES 


Our popular Hi-Res Color 
graphic Adventures. . .Ca- 
lixto Island, Black Sanctum, 
Shenanigans, Sea Search, 
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for MS-DOS computers 
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entertain you. 



QUALITY VIDEO MONITORS 


We carry both monochrome and color 
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Priced from $109.95 


TILT SWIVEL BASE 


Now you can adjust your monitor for best viewing angle. Left, right, 
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DISC STORAGE CASE 


Attractive, heavy duty, smoked acrylic case. 
Holds and protects up to 75 514" discs with 
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Discover a Whole 
New World of TV 
Entertainment! 


User Installable! Over 100 Channels! 

Uncut Movies! Specials! Sports! 
fcfes. News! Weather! Music Videos! 


Entire 

System 


■ Totally Automatic System With 10V2-Ft. 

Dish, Receiver and Wireless Remote Control 

■ Comes With All Accessories Needed for 
Complete Do-it-Yourself Installation 

■ Descrambler Ready 


U.L. 

Approved 


Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 


grams, plus music videos, FM broadcasts and movies 
with provision for stereo, and 24-hour news coverage 
on both TV and radio. It all adds up to out-of-this-world 
TV viewing at a down-to-earth price. Come in today and 
discover how easy it is to enjoy satellite programming! 
Includes complete installation manual. 


Now you can enjoy it all! 24-hour non-stop entertain- 
ment that you simply can’t get from local TV, cable, and 
even video tape! You’ll see the hottest stars, recent un- 
cut and uninterrupted movies, the ultimate in sports 
coverage — and the best part is, there are no monthly 
fees to pay. You’ll see exciting family-oriented pro- 
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Box 593 • Nocona, TX 76255 


UPS Shipping 


A RADIO SHACK DEALER 


Radio /hack 
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MS-DOSsier 



The Device Driver: 

An MS-DOS Power Feature 


O ver the past 15 months, “MS- 
DOSsier” has covered a lot of 
ground. As we move further into 
our second year of this column, we are 
evolving from a beginner’s column to 
one for the MS-DOS power user — the 
person who feels comfortable with MS- 
DOS, but has not yet mastered all the 
power available to him. 

This month, we begin covering one 
of those “power” features — device 
drivers. While powerful in function, 
device drivers are surprisingly easy to 
take advantage of. 

Device Drivers 

As we have talked about in earlier 
issues, a “device” is simply a piece of 
hardware attached to the computer. 
Once you’ve physically connected a 
device, you must logically attach it to 
MS-DOS. That is, you have to tell MS- 
DOS the device is there and supply it 
with the interface software. This inter- 
face software is called a “device driver.” 

MS-DOS has built-in standard device 
drivers for common devices such as the 
video display, keyboard and disk drives, 
so there is no need for us to supply 
one. Other devices such as mouse 
boards and network boards usually 
require a software driver. 

Software drivers are generally sup- 
plied when you purchase the device. The 
ViaNet board, for example, includes a 
device driver called NETWORK. SYS to 
drive the network card. The Digi- 


By Danny Humphress 
PCM Technical Editor 


Mouse/ Clock Controller Board comes 
with MOUSE . SYS and CLOCK . SYS device 
drivers. 

Device drivers are not just for add- 
on hardware devices. Some drivers are 
used to change the way a common 
device works. ANSI. SYS, for example, 
is used to make the video screen and 
keyboard behave like a standard ANSI 
terminal (American National Standards 
Institute). Others, like LPDRVR.SYS on 
the Tandy 1000, change the way the 
printer reacts to control codes. A device 
driver is available through Tandy’s 
Express Order Software that allows you 
to use part of your computer’s RAM 
as a disk drive. 

Installing a Device Driver 

In order for your computer to 
recognize and use a particular device 
driver, you need do two things. First, 
you must copy the device driver file to 
the root directory of your MS-DOS 
boot disk or hard disk. Then, MS-DOS 
must be told the device is a part of its 
“configuration” when the system boots. 
This is done via the CONFIG.SYS file. 

While the filename CONFIG.SYS 
would lead you to believe it is a device 
driver, it is actually a file that lists the 
device drivers to be included in the 
system when it is booted. It is also used 
to set certain system parameters (more 
on that later). 

When you turn on or reset your 
computer, the computer looks for a 
CONFIG.SYS file on the boot disk for 
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information about the system config- 
uration. If there is no CONFIG. SYS on 
the disk, MS-DOS assumes a “standard” 
configuration, then goes on to the 
AUTOEXEC. BfiT file (if one exists) or to 
the normal date and time questions. 

If MS-DOS finds a CONF I G . S YS file, 
it uses it to set system parameters and 
to find the names of the device drivers 
it needs to load. If, for example, you 
used CONFIG.SYS to tell DOS that 
you’re using the ANSI. SYS console 
driver, it would look for the ANSI .SYS 
file and load it into memory as part 
of DOS. 

The CONFIG.SYS file may be created 
with the EDLIN line editor, with a COPY 
CON: TO command, or with just about 
any text editor. (For more information 
on EDLIN, see the “MS-DOSsier” 
columns in the August 1984 through 
November 1984 issues of PCM.) 

The lines in a CONF I G . SYS file loosely 
resemble a programming language. 
Like a language, MS-DOS recognizes 
certain key words in the CONFIG.SYS 
file as having specific meanings. Briefly, 
the keywords recognized are: BUFFERS, 
FILES, BREAK, SHELL and DEVICE. 

The DEVICE command is used to tell 
MS-DOS to load a certain device driver 


when MS-DOS is booted (started up). 
If we wanted the ANSI. SYS and MOU 
SE.SYS drivers to be loaded when we 
booted, we would need these two 
commands in the CONFIG.SYS file: 

DEVICE = ANSI. SYS 

DEVICE = MOUSE. SYS 

The first thing MS-DOS will do after 
loading is to load ANSI. SYS and 
MOUSE. SYS into memory and attach it 
to DOS. These device drivers will be 
in effect until the system is re-booted 
or turned off. 

It is important to remember that the 
commands in the CONFIG.SYS file are 
not in effect until you reset your 
computer. That is the only time MS- 
DOS looks at CONFIG.SYS and con- 
figures the system. 

ANSI. SYS 

By designing their programs to work 
with ANSI terminal standard com- 
mands, programmers can easily move 
their applications from one machine to 
another without having to worry about 
video display and keyboard differences. 

The ANSI. SYS device driver, which 
comes with all of Tandy’s MS-DOS 
machines as well as most other com- 


patibles, makes your display and 
keyboard behave according to the 
ANSI standards. While the keyboard 
and display accept the ANSI control 
codes, their normal operation is not 
affected. That is, programs that are not 
designed to work with ANSI. SYS will 
not be affected by its presence. 

Many programs require that you 
have the ANSI. SYS driver installed. 
Among those available from Tandy that 
require ANSI. SYS are Videotex Plus 
and file Pro 16. To use them, you must 
make sure this line is part of your 
CONFIG.SYS file: 

DEVICE = ANSI. SYS 

Even if you aren’t a programmer, 
ANSI . SYS allows you to do some really 
nice things such as changing the screen 
colors and defining function keys. 
Details on this next month. 

We’ll also discuss some of the other 
available device drivers next month. 
Some of these drivers, such as the 
KEYCNVRT . SYS keyboard driver and 
the LPDRVR.SYS printer driver are 
specific to the Tandy 1000. We’ll also 
take a look at DUMPCGP.SYS and 
DUMPBW . SYS, the graphics screen dump 
utilities. nran 
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INTERNAL 10 MEG HARD DRIVE $549. 
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ELECTRONICS 


TRS-80 Model 2000 by Tandy” 


MS-DOS Based 



TRS-80“ Model 100 by Radio Shack 



Computer System 


256K MOD2000 W/M0N0 MONITOR 1319 00 

256K MOD2000 W/COLOR MONITOR 1649 00 

256K MOD 1200 HD 2 DR 1499 00 

128K MOD 1000 W/MONO 1 DR. . . . 839 00 

128K MOD 1000 W/COLOR 2 DR 119900 

256K MOD 1000 W/HARD DISK 1439.00 

24K MOD 100 PORT 399 00 
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15 MEG HARD DISK 1329.00 
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CGP 220 COLOR PRINTER 499.00 

DWP 510 PRINTER 999.00 
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TRACTOR DWP 11/510 159.00 

TRACTOR FEED DMP2100P 99.00 

PARALLEL PRINTER SWITCH 96.00 

PARALLEL PRINTER CONTROLLER 179.00 

PARALLEL PRINTER CABLE 29.00 

DISK VIDEO INTERFACE 39900 
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Prepare school tests anywhere 
anytime with this . . • 


jFr$A 


This month we bring you the first 
installment of an occassionally- 
published series of portable computer 
programs designed by Fred B. Seer bo. 
While these programs will be designed 
with the professional educator in mind , 
they will be perfectly suited for use by 
parents who wish to help their children 
improve their grades and studies . If you 
have any ideas or needs you would like 
to see developed in this series , submit 
your requests to Fred ', c/o PCM. We 
don't promise any results, but your 
suggestion might serve as the stimulus 
for a program for the Model 100 or 
200. 


F or those of you who are readers 
of PCM’s sister publication, THE 
RAINBOW, I will probably need 
little introduction. I am a public school 
special needs teacher in Massachusetts 
and have been writing programs using 
Tandy computers for the better part of 
the last five years. While the majority 
of my programming has been done on 
Tandy’s highly successful Color Com- 
puter and Model III/ IV, for the past 
year and a half I have been experiment- 
ing with a 24K Model 100. While my 
first love will always be the Color 
Computer with its graphic capabilities, 
I have found myself using my portable 
computer, or PoCo as it has come to 
be known, more and more every week. 

This month, I will offer a short 
program which will help teachers and 
parents prepare written tests for school 
or home with little effort. This program, 
Multiple Choice Test Maker , or TESTM . Bfi 
as you could name it in memory, will 


free you up for the more personal 
contact that education requires while 
still allowing you to create professional 
looking paper tests. 

Why the PoCo? 

1 first purchased my Model 100 over 
a year ago at the sale price of $799.95 
at the local Radio Shack. When the 
machine first came out, I thought 1 
would never possibly have any use for 
such a computer since my Color 
Computers usually met the needs of my 
students. However, ail of that changed 
in March of 1984 when I was asked 
to help do the pairings for kids at a 


(Fred Seer bo is a special needs instructor 
for the North Adams Public Schools. 
He holds a master's in education and 
owns his own software firm, Illustrated 
Memory Banks, in North Adams, 
Mass.) 
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state freestyle wrestling tournament. 
After spending hours doing the pairings 
by hand, I came to the conclusion that 
the task could probably be done much 
more efficiently by computer. 

To make a long story short, I 
developed a program for my Color 
Computer to handle the task, which it 
did quite nicely. The one problem I 
faced was the CoCo’s lack of portability. 
(I usually have a three hour drive to 
each tournament.) The logical answer 
was to buy a Model 100, which I very 
quickly fell in love with. 

Since that time, I have gone to 
tournaments all over the country 
bringing along my Model 100 and 
dazzling everyone with what my little 
24K battery operated wonder can do 
to save them time. However, that is not 
the only use I have found for my PoCo. 
I have written every one of my RAINBOW 
articles on it for the past year, and using 
a null modem, have dumped the 
contents to a Color Computer disk for 
delivery to the fine folks at Falsoft. 
There is just something very relaxing 
about sitting in my easy chair and 
constructing my column using the 
PoCo’s built-in word processor. (In 
fact. I’m doing that this very minute.) 
Therefore, it was simple translating 
some of my educational programs for 
the CoCo to the PoCo so parents and 
my fellow educators could have the 
same convenience in preparing materials 
for school or home. 


A Philosophy of Education 

The most abused word in education 
today is CAI which stands for Computer 
Assisted Instruction. Somehow, a 
number of administrators and well- 
meaning parents and politicians have 
gotten the idea that the best way to 
improve education in our schools is to 
have every public school student seated 
in front of a computer monitor doing 
school work. As I outlined in previous 
rainbow articles, the most important 
area of CAI is probably the most 
ignored, that is, the use of computers 
to create paper test and quiz material 
for classroom use. This is the greatest 
assistance that a teacher can have since 
teaching is a hands-on experience which 
requires all the creative talents a teacher 
can muster. Since preparation of quiz 
and test material is a tedious time- 
consuming activity, using a computer 
to solve this task will free up the 
instructor for more creative efforts. 

That is why I originally created this 
program for the CoCo. However, since 
our little PoCo is just as capable of 


dumping its contents to the line printer 
as the CoCo, I figured why not give 
it a try. 

The Program 

TESTM.BA differs from its Color 
Computer version in that it lets you use 
the Model 100/200’s built-in text 
processor to create the information 
used in the written test. I had originally 
used DATA statements in the CoCo 
version since most individuals find it 
easier to edit a DATA line than to edit 
a file. Since our PoCo uses a full screen 
cursor to edit text, there was no need 
to waste memory using DATA lines in 
BASIC. 

The kind of test that TESTM.BA 
makes is a multiple choice quiz allowing 
five answers including “Not Given” as 
a choice. U nlike other tests which would 
require you to create one correct answer 
to a question and three incorrect 
responses, TESTM.BA chooses its incor- 
rect responses from the correct responses 
to other questions or terms. The order 
of every selection is different each RUN 


“Teaching is a 
hands-on experience 
which requires all the 
creative talents a 
teacher can muster.” 


as is the order of the choices and 
selection of incorrect responses. There- 
fore, if you enter the material you want 
tested once^ you can create an endless 
number of tests, all different, in as little 
time as it takes to load the file. 

Another nice feature of TESTM.BA is 
that it allows you to select print sizes: 
either your standard 80 character/ line 
or the enlarged 40 character/ line. If 
your line printer does not recognize 
CHR$ ( 31 ) for enlarged or CHR$ ( 30 ) for 
standard print, then change the value 
of the variable PS in lines 360 and 370 
to the correct values for your printer. 
The program will adjust variables for 
the different sizes of print and allow 
you to control how much text is printed 
on a sheet as you approach the bottom 
of a page. Y ou will be prompted to press 
‘N’ for the next line of text only, or 
ENTER should you wish to print another 
whole page. This is especially useful if 
you are near the bottom of the page 
and are in the middle of a question 
which you do not want to split between 
two pages. 
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Preparing a Text File 

I have included a listing of twelve 
quotes from Romeo and Juliet and their 
interpretation which you may ENTER to 
see how the test prints out with a test 
which fills two pages. This is useful so 
you can see how the page advance 
works. 

The text is set up in this fashion: 

“Quote from play.”, “What it means.” 

Each question is thus composed of 
two parts: a question or term and its 
answer or definition. Thus, to avoid 
confusion, wrap each piece of informa- 
tion in quotation marks as you see 
above. Separate the question/ answer or 
term/ definition combination with a 
comma outside the quotation marks. 
This allows the computer to differentiate 
between the two pieces of information 
without being confused by commas 
used for punctuation inside the quotes. 

I will give you a small sample 
demonstration that I have used in other 
programs to demonstrate this. Using 
the TEXT editor, open a file called 
5AMPL.D0 for our text. We will create 
a short test on antonyms or opposites. 
Type in this information exactly as you 
see it below: 

"UP", "DOWN" 

"HOT", "COLD" 

"LATE", "ERRLY" 

"LIGHT", "DARK" 

"ALWAYS", "NEVER" 

"YESTERDAY", "TOMORROW" 

"END", "SAMPLE TEST OF OPPOSITES" 

To make TESTM.BA work, you must 


have at least five sets of terms/ questions 
to use. The last piece of information 
will be “END” “TITLE OF QUIZ.” 
This assures that our title appears at 
the top of the quiz. 

Return to the BASIC program after 
you have completed your text prepa- 
ration. When prompted to load a text 
file, load 5AMPL as the title. Do not add 
the , DO ending as the program will do 
that for you. After the file has loaded, 
you will be asked if you wish to reverse 
the data in the program. This would 
allow you to ask Down to be matched 
with Up, instead of Up matched with 
Down. This allows you to create two 
totally different kinds of tests with just 
one text entry. Next you may select 
large or small print. Prepare your line 
printer and press ENTER to start 
printing the test. 

As you approach the bottom of the 
page, the screen will prompt you for 
additional lines or printing another full 
page. If you do not have enough text 
to fill a page, then the program will 
return to the titlecard. You may then 
reload the file and print another, 
different version of the same test 
material. 

Other Uses 

I have tried to keep TESTM.BA as 
small as possible so you could leave it 
in memory as a BASIC program. That 
way, you would only need to create new 
files of test data as needed. 

The possibilities for TESTM.BA are 
only limited by your imagination. 
Create a fill-in sentence with the 
corresponding answer: 


“Our first . . . was George Washing- 
ton.”, “president” 

Use it with math problems: 

“2 + 2 = ”,“4” 

I’m sure your can think of other ways 
to use it as well. Just remember, try 
not to have the same answers for 
different questions, such as: 

“2 + 2 = ”, “4” 

“3 + 1 = ” “4” 

This could cause you to have an 
answer repeated which might appear 
confusing when the test is printed. 

Errors 

One word of warning: Take great care 
in the preparation of your text that you 
only use one comma for each pair of 
information. If you get an ?E0F error 
you probably left out a comma or added 
an extra one. You can avoid this 
problem altogether by pressing ENTER 
between the term and definition and 
leave out the comma altogether. You 
be the judge of which works better. 

Also, you may have to CLEAR more 
string space if you get an 90S error. 
Simply increase the value after the 
CLEAR statement at the beginning of the 
program. 

Conclusion 

I hope TESTM . BA and ROMEO . DO help 
you get a good idea how to use this 
program. In coming issues I’ll offer 
other educational aids which I have 
developed. Let me know what you 
think. 



The Listing: 

10 REM MULTIPLE CHOICE TESTMAKER 
20 REM BY FRED B.SCERBO (C)1985 
30 REM 149 BARBOUR ST .N .ADAMS ,MA 01247 
40 CLEAR6000 : DIMAO(50) , A$ (50) , B$ (50) ,NP( 
50) : GOTO110 

50 IFLEN ( JK$ ) <=SWTHEN 9 0 

60 FORT=SW TO 0STEP-1 : IFMID$ ( JK$ , T , 1)=” 

"THEN80 

70 NEXTT : GOTO90 

80 L$=LEFT$( JK$ , T) : W$= L$ : GOSUB100 : JK$=" 
”+RIGHT$ ( JK$ , (LEN( JK$) ) -T) : GOTO50 
90 W$=JK$ : RETURN 

100 LPRINTW$ : CR=CR+1 : GOSUB620 : RETURN 
110 REM START 

120 CLS : PRINT@47 , "MULTIPLE CHOICE TEST M 


AKER” 

130 PRINTTAB(18)”BY” :PRINTTAB(12)”FRED B 
. SCERBO” :PRINTTAB( 10)” COPYRIGHT (C) 198 
5” 

140 PRINT@248 , ” ENTER FILE NAME : ” ; : INPUT 
GG$ : GG$=GG$+” . DO” 

150 CLS : PRINT@131 , "NOW LOADING FILE";: OP 
EN GG$ FOR INPUT ASl 
160 FORJ=1TO50 : IF EOF(1)THEN200 
170 INPUT#1,A$(J) ,B$(J) 

180 IFA$ ( J)=”END"THEN200 
190 NEXTJ 

200 CL0SE1 : PT$=B$ ( J) : J=J-1 

210 CLS :PRINT@124, "WANT TO REVERSE THE D 

ATA (Y/N) ?” 

220 T$=INKEY$ : UH=RND(6666) : IFT$=”N”THEN2 
60 

230 IF T$=”Y”THEN250 
240 GOTO220 

250 CLS: FOR Q=1 TO J-l : TEM$=A$ (Q) :A$(Q)= 
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B$(Q) : B$(Q)=TEM$ : NEXTQ 

260 J=J-1 

270 F0RI=1T0 J 

280 A0(I)=INT(RND(1)* *J)+1 

290 IF NP(AO(I))=1THEN280 

300 NP(A0(I))=1 :NEXTI 

310 CLS:PRINT@124, "SELECT (L)ARGE OR (S) 

MALL PRINT"; 

320 P$=INKEY$ : IF P$=""THEN320 
330 IFP$="L"THEN 360 
340 IFP$="S"THEN 370 
350 GOTO320 

360 SW=38 : PL=37 : TL=8 : LL=21 : PS=31 : GOTO380 
370 SW=76 :PL=54:TL=14:LL=53 :PS=30 
380 CLS:PRINT@124, "PRESS <ENTER> TO BEGI 
N PRINTING"; 

390 P$=INKEY$ : IFP$=CHR$(13)THEN410 
400 GOTO390 

410 LPRINTCHR$ (PS) ; " NAME" ; STRING? (LL 95 
) ; "DATE" ;STRING$(TL, 95) 

420 LPRINT" TEST ON: " ; PT$ : LPRINT" " :CR= 
4 

430 FORP=lTO J 

440 IFP<10THEN ID$=" "ELSE ID$="" 

450 LPRINT" " : CR=CR+1 : GOSUB620 : JK$=ID$+S 
TR$(P)+" . "+A$ (AO(P) )+" "+STRING$(6 ,95)+ 

" " : GOSUB50 ' 

460 FOR Q=1T04 


The Preble NavComp II 
Two Aviation Programs in one package! 
New Enhanced Version For the Model 1 00 or new 
Tandy 200! 


NavAid 

For In Flight Navigation 

• Tracks your flight in Real 
Time! 

• Modify Flight Data as 
necessary! 

• Incredible Graphic displays! 

• Shows Position, Fuel, 
Intersections! 

• ETA’S, Ground Speed, and 
much more! 

• Turn off and on without 
data loss! 


NavPIn 

For Flight Planning 

• Creates Navigation Log! 

• Saves Route of Flight for 
repeat use! 

• Compensates for Climbs and 
Descents! 

• Statute or Nautical 
measurements! 

• Self Prompting with error 
prevention! 

• Fly direct or use VORS! 

• And many other advanced 
features! 

Requ |res Radio Shack Model 100 with at least 16K or the new Tandy 

Attention Radio Amateurs? Announcing* 

The Preble HAMTERM! 

For the Model 100 or new Tandy 200! 

• Radioteletype operation for BAUDOT, ASCII, AMTOR, CW» 

• capat^nt r y? en ° peration in receive m ode with’ unlimited type ahead 

• Word Buffer in T ransmit Mode! Corrects errors before they are sent! 

• Automatic CO! - Automatic Station Call! - Automatic Logging' 

- Send RYRY- “ Download! ~ Upload' - Send Time and Date! 

• And many other advanced features! 

new Tandy 2M , ! 0niCS ^ RS M ° de ' 10 ° ^ a ' ' eaS ' 16K 0r the 

The Preble NavComp: Only $34,95 

The Preble HAMTERM: Only $29 95 

countries anCi ha " dlin9 $1 ' 5 ° '° U S and Canada ~ $5 00 t0 °'her 
Free Brochures available! 

VISA, MasterCard or COD is OK! 

Order From: Dr. Preble’s Programs; 6540 Outer Loop; 
Louisville, KY 40228 (502) 966-8281 V 


470 C(Q)=INT(RND(1)*J)+1 : IF C(Q)-AO(P) T 
HEN470 v ' 

480 FOR K=Q-1 TO 0STEP-1:IF C(K)=C(Q) TH 
EN470 w ' 

490 NEXTK 

500 NEXTQ :C(5)=A0(P) 

510 FOR E=1T05 

520 F(E)=INT(RND(1)*5)+1 

530 FOR K=E-1 TO 0 STEP-1: IF F(K)=F('E) T 
HEN520 v ' 

540 NEXTK :NEXTE 

550 JK$=JK$+" (1) "+B$ (C(F(1) ) ) :GOSUB50 

560 JK$=JK$+" (2) "+B$(C(F(2))) :GOSUB50 

570 JK$=JK$+" (3) "+B$(C(F(3))) :GOSUB50 

580 JK$=JK$+" (4) "+B$(C(F(4))) :GOSUB50 

590 JK$=JK$+" (5) NOT GIVEN" : GOSUB50 

600 LPRINT JK$ : CR=CR+1 : GOSUB620 

610 LPRINT" " : CR=CR+1 :GOSUB620:NEXTP : RUN 

620 IF CR<=PL THEN RETURN 

630 CLS : PRINT@8 6 , "ADVANCE PAPER TO NEXT 

SHEET" :PRINTTAB(7) "PRESS <ENTER> TO C0NT 

INUE" 

640 PRINTTAB(6) "PRESS (N) FOR NEXT LINE 
ONLY" ; 

650 P$=INKEY$:IFP$=CHR$(13)THEN CR=0-RET 
URN ^ 

660 IFP$="N"THENRETURN 
670 GOTO650 


TRS-8 


SAVE SALES TAX *PLUS DISCOUNT 

‘TEXAS RESIDENTS ADD ONLY 4Va% 




TANDY 200-72K 


FORT WORTH COMPUTERS 

WE ARE SERIOUS ABOUT SAVING YOU MONEY 


(Located 30 miles from Fort Worth) 

377 PLAZA • GRANBURY • NR FORT WORTH. TEXAS 76048 

CALL FREE: 1-800-433-S-A-V-E 

Monday thru Friday - 9:00 a.m. to 5:00 p.m. 

(Order mquiries/Customer Service &) IN TEXAS: 817-573-41 1 1 
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USE YOUR DESKTOP COMPUTER AS A 
DISK DRIVE FOR YOUR M-100. 



on Snap-In ROM 


>**» *« » #**## * * «*«« i 


Try Disk + for 30 days. If you aren’t as 
excited as we are, return it for a full refund. 


>« *A.**m*** * * r*»*»u* ' 


»*■*****•« a 9 ji w **«*■* *-* : *'»* '»®*** J * 


When we designed D/sk + we did it out 
of necessity. We wanted a way that we 
could just connect a Model 100 to our 
desktop computer with a cable and save 
files onto the desktop’s disk drive. We 
wanted it to be so simple to use it would 
be self-explanatory. 

Picture this. Disk-\- comes to you on a 
Snap-in ROM and a diskette for your 
desktop. You take a quarter and open the 
little compartment on the back of your 
Model 100. Then you just press the ROM 
into the socket. Disk -I- appears on your 
main menu just like a built-in. 

You connect your Model 100 to your 
other computer using an RS232 cable 
(available from PCSG for $40). 

You just place the Disk + diskette into 
the desktop’s drive and turn on the com- 
puter. It powers up automatically and says 
“awaiting command” on your desktops 
screen. Then you just put the widebar 
cursor on the Model 100 main menu on 
Disk- 1- and press ENTER. You are shown 
your RAM files arranged just like the main 
menu. 

To save a file to your other system’s 
disk drive, you just move the widebar cur- 
sor to the file you want to save and press 
ENTER. It is saved instantly with no 
further action. 

To look at the disk directory, you just 
press a function key on your Model 100. 
You see immediately the disk directory on 
your Model 100 screen, and it is arranged 
just like your Model 100’s main menu. 

To load a file from the diskette to your 
Model 100, you just move the widebar 
cursor to the file and press ENTER. The 
file is transferred to your Model 100’s RAM 
instantly. You can press F8 and go back to 
the main menu, and the file you loaded 
from diskette is there, ready to use. 


It is so nice to be able to keep your 
documents, programs (both BASIC and 
machine code) and Lucid spreadsheet 
files on the diskette, and bring them back 
when you need them. All files are ready 
to run or use with no changes or protocol 
by you. 

If you have access to a desk- 
top computer and don’t 
have Disk + , then evidently 
we have done a poor job 
telling you about it. 

. . ... , V s 

All files and programs that you load or 
save, go over and come back exactly as 
they are supposed to be because of full 
error checking. This guaranteed integrity 
is really a comfort. D/s/c + is wonderful in 
so many other ways. For example, you 
can do a “save all” of all your RAM files 
with just a touch of a function key. That 
group of files is saved on the diskette 
under a single filename with a .SD (for 
subdirectory) extension. Any time you 
want, you can bring back all those files at 
once, or just one or two if you like, again 
with one-button ease. 

Disk- 1- takes up no RAM. That’s zero 
bytes either for storing the program or for 
operating overhead. 

What really excites most Disk+ users 
is text file cross compatibility. Your Model 
100’s text files are usable on your desktop 
computer, and your desktop’s text files 
become Model 100 text files. 

This means you can write something on 
your Model 100, and with Disk + transfer it 

1 - 214 - 351-0564 

ft*«*»»i^»x**9 : ****«Mm9t’f*wm*»i*X’nwwm***.»tM'X*m******9***^4nc*»*tm***»MTi 


instantly to your desktop and start using it 
right away on your bigger computer. Or 
the way we like to work is to type in a 
document on the desktop computer and 
then transfer it to our Model 100 with 
Disk + . Then we print out the document, 
beautifully formatted, using WRITE ROM. 

Disk+ works with just about every 
micro sold, from IBM PC and its clones, to 
all Radio Shack computers (yes, all), to 
Apple II, Kaypro, Epson and most CPM. 
Just ask us. More than likely, your comput- 
er is supported. 

Incidentally, hundreds of Model 100 
owners have gone to their Radio Shack 
stores and bought a color computer be- 
cause it is so low priced, and with Disk + 
they have an inexpensive disk drive. 

And if that weren’t enough, how about 
this: Disk+ also provides cross-compati- 
bility between different computers like 
IBM, Apple or the Model 4 using the Model 
100 as the intermediary device. Quite a 
feature! 

The snap-in ROM is really great be- 
cause you can use other ROMs like Lucid 
or WRITE ROM. They snap in and out as 
easily as an Atari game cartridge and you 
never lose your files in RAM. 

Anyone who ever uses Disk+ simply 
can't do without it. But so many times we 
have had new users call us and say, 
“Wow! I had no idea when I ordered it that 
Disk+ would be so fantastic. I just 
couldn’t believe that I could use my 
desktop computer’s disk drive with my 
Model 100 just like it is another main 
menu." 

That’s why we sell Disk + on a thirty- 
day trial. If you aren’t completely satisfied, 
return it within thirty days for a full refund. 
Priced at $149.95 on Snap-in ROM. Mas- 
terCard, Visa or COD. 


PORTABLE COMRJTER UFFORT GROUP 

11035 Harry Hines Blvd., #207, Dallas, Texas 75229 • 1 (214) 351-0564 

PCSG provides hotline software support for the Model 100. Call us at 1-214-351-0564 
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dBASE Tutor 

1 

_| feature 

1000, 1200, 2000 


As our initial dBASE II programming project, we have 
chosen this highly useful mailing list system. In doing so, 
we acknowledge that old postal admonition about what 
it is that ‘must go through ' . . . 

dMAIL: Project One 

By Danny Humphress 
PCM Technical Editor 


T his month, as promised, we begin 
working on a dBASE program- 
ming project — a mailing list 
program. The program will have fields 
for name, street address, city, state, ZIP 
code and telephone number. It will 
allow the user to add and edit records, 
print a mailing list, and print mailing 
labels. 

Once you’ve decided what you want 
the program to do, the next step is to 
define the database files that will be 
used with it. In the case of our mailing 
list program, there will only be one file. 
The file will have an index on name 
for looking up records and printing 
alphabetical lists, and an index on the 
ZIP code to be used for printing mailing 
labels in ZIP code order to take 
advantage of pre-sorted postage rates. 

Our database file will be called 
MAIL . DBF. The alphabetical index will 
be MAILNAME . NDX, and the ZIP code 
index will be MAILZIP . NDX. It is a good 
idea to use some common word or first 
letters, such as “MAIL,” when naming 
databases and indexes. As the directory 
becomes full with files, this makes it 
easy to see which indexes go with which 
database files. 

The structure for MAIL is seen in 
Figure 1. Use dBASE’s CREATE com- 
mand to set up the file. 

Now, create the two index files from 
the dBASE dot (.) prompt with the 
following commands: 

USE NAIL 

INDEX ON NAME TO MAILNANE 
INDEX ON ZIP TO MAILZIP 

To keep things as simple as possible, 
the program will not use a lot of 


advanced dBASE techniques — just 
straight, simple programming. Many of 
the commands used are ones that we’ve 
already discussed in this series. Others 
are new and we’ll go over them as they 
arise. 

We will have four different dBASE 
programs which will make up the 
mailing list system: MAILMENU . PRG, 
MAILEDIT . PRG, MAILREPT . PRG and 
MAILLABL . PRG. The first program, 
MAILMENU . PRG, will be the main menu 
for the system and the other three will 
be called from it. MAI LED IT. PRG will 


Figure 1 




STRUCTURE FOR FILE: 

C: 

MAIL 

.DBF 

NUMBER 

OF RECORDS: 

00000 


DATE OF 

LAST UPDATE: 

08/01/85 


PRIMARY 

USE DATABASE 




FLD 

NAME 

TYPE WIDTH 

DEC 

001 

NAME 

C 

030 


002 

STREET 

C 

030 


003 

CITY 

c 

015 


004 

STATE 

c 

002 


005 

ZIP 

c 

010 


006 

PHONE 

c 

013 


** TOTAL ** 


00101 



be the program used for adding and 
editing records. MAILREPT. PRG and 
MAILLABL . PRG will be used for printing 
the mailing list report and the mailing 
labels. A screen format file, MAILE 
DIT.FMT, will be used by 
MAILEDIT.PRG. 

The first program that we’ll work on 
will be MAILEDIT.PRG — the one 
essential program and the most com- 
plicated. Since it will use the MAILE 
DIT.FMT screen format file, we will also 
have to create it. 

MAILEDIT.FMT 

Figure 2 contains the screen format 


file, MAILEDIT.FMT. Enter it with a 
word processor, MS-DOS’s EDLIN, or 
dBASE’s MODIFY CDMMAND line editor. 

As you can see, the screen format file 
is a simple list of @ SAY/GET commands 
with PICTURE clauses used where 
needed. This screen is already designed 
for you, so you don’t have to worry 
about making it look nice. When 
designing your own screens, it’s a good 
idea to lay it out either on paper or 
with a word processor, then figure out 
the screen coordinates and create the 
necessary @ SAY/GET command lines. 

The PICTURE clause for the STATE 
field (! !) converts whatever two char- 
acters the user enters into uppercase to 
conform with the two-letter state 
abbreviations. 

The ZIP field is pictured to accept 
either the old five-digit ZIP codes or 
the new ZIP+4 nine-digit codes. A space 
is used to separate the two numbers 
instead of the usual hyphen (-). If we 
had not done this, five-digit ZIP codes 
would have a hyphen after them. This 
way, there is only a harmless space. 

The TELEPHONE field’s PICTURE 
clause is set up to accept the area code 
and automatically put in the punctuation 
marks (parentheses and hyphen). 

MAILEDIT.PRG 

Type in the program in Figure 3, 
MAILEDIT.PRG, exactly as it appears. 
Again, you may use a compatible word 
processor, EDLIN or MODIFY COMMAND 
to do this. The comments in italics are 
for your use only and should not be 
typed in. Additionally, the line numbers 
are for reference and should not be 
entered. 
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You may have noticed the use of 
upper- and lowercase words. A common 
practice when programming in dBASE 
is to put all the dBASE commands and 
keywords in lowercase and the fields, 
variables and filenames in uppercase. 
While not mandatory, this makes it 
easier to read and understand the 
program when the time comes to debug 
or modify it. 

The first four command lines in the 
program set up the operating conditions 
for dBASE. 

SET TALK OFF tells dBASE to refrain 
from displaying operating messages and 
record numbers. It is often the first line 
of any dBASE program. 

dBASE normally puts colons before 
and after each field when doing full- 
screen editing. SET COLON OFF turns off 
this feature. 


SET CONFIRM ON tells dBASE to wait 
for the user to press ENTER before going 
on to the next field when doing full- 
screen editing. If confirm is on, dBASE 
will automatically advance to the next 
field if you fill up a field. 

SET BELL OFF tells dBASE to be 
silent when you enter the last character 
in a field. Like the previous two 
commands, this is just a matter of 
preference. 

Line 6 is the familiar old USE 
command. We are opening the 
MR I L. DBF file with the indexes MRIL 
NRME.NDX and MRILZIP.NDX. Since 
MRILNRME is the first index listed, it will 
be the one used for the FIND command. 
MRILZIP is kept updated, though, and 
will be used for the mailing label 
program. 

The screen is cleared in Line 8 and 
we are ready to begin. 


Remember the DD WHILE/ENDDO 
command pair? We discussed it in the 
May dBASE Tutor. Since T means 
“always true” in dBASE and F means 
“always false,” the command in Line 
10, DO NH I LE T, will run forever. 
Forever, that is, until we RETURN back 
to the dBASE dot prompt. 

Lines 12 through 18 use a simple @ 
5RY/GET to find out which function the 
user wants to use. Since we are getting 
data into a variable and not a field, we 
have to use the RERD command in Line 
16 to invoke the @ 5RY/GET command. 
The next line, CLERR GETS, makes 
dBASE forget about the previous @ 
SRY/GET command lines so it does not 
try to read them again with RERD, 
RPPEND or EDIT. Line 18 clears the line 
where the message appeared. 

The commands in lines 20 and 24 are 
probably new to you, but they are quite 
easy to understand. IF RNSWER='R' 
tells dBASE to do the following 
commands up to the END IF if the 
content of the variable RNSWER is equal 
to 4 A.’ If the expression RNSWER='R', 
were false, dBASE would skip down 
to the next line after the ENDIF. This 
section is the one used when the user 
presses ‘A’ to add records. 

Line 2 1 opens our screen format file, 


Figure 2 





9 10,15 

say 

' Name: 

' get NAME 


9 12,15 

say 

'Street: 

get STREET 


9 14,15 

say 

'City: 

' get CITY 


9 14,39 

say 

State: 

' get STATE picture 1 1 1 

* 

9 14,49 

say 

'ZIP: ' 

get ZIP picture '99999 

9999' 

9 16,15 

say 

'Telephone Number: ' get PHONE 

picture (999)999-9999' 


T hese distinctive brown binders not only ensure that your 
magazines stay in mint condition, but they showcase your 
collection as well. Each binder is clearly embossed with the 
magazine’s name in gold lettering on both the front and 
the spine. They’re a handsome addition to any decor. 

Each of these handsome binders holds 12 issues of PCM 
and is only $7.50 (please add $2.50 for shipping and handling 
for each binder ordered). 

SPECIAL DISCOUNTS ON PAST ISSUES WITH THIS OFFER 

If you place an order for six or more back issues of PCM 
at the same time you order your binder(s), you are entitled 
to $1 off each back issue of the magazine, which normally 
sell for the single issue cover price. For an index to our 
back issues, and an order form, please refer to our “Back 
issue Information” page (check Table of Contents under 
departmental listings). 

YES. Please send me sets of binders at $7.50 each (plus $2.50 shipping and handling for each binder ordered). 

If your order is to be sent via U.S. Mail to a post office box or to another country, please add $2. Kentucky residents 
add 5 percent sales tax. 

I also want to take advantage of the special savings of $1 off the single issue cover price for back issues with the 
purchase of a binder. (An order form from a recent issue indicating the back issues you wish to receive should accompany 
this order.) 

Name — - — - 

Address 

City State ZIP 

My check in the amount of is enclosed. (In order to hold down costs , we do not bill.) 

Charge to: □ VISA □ MasterCard □ American Express 

Account Number Expiration Date 


Protect Your Valuable 
PCM Collection With . . . 



DISTINCTIVE AND DURABLE 
PCM BINDERS 


Signature 

Mail to: Falsoft, Inc., The Falsott Building, 9529 U.S. Highway 42, P.O. Box 385, Prospect, KY 40059. 


PCM 
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MAILEDIT .FMT, for the next command. 

Line 22 performs the APPEND com- 
mand using the current full-screen 
editing format file. 

When dBASE comes across this 
command, it will display an empty 
record on the screen using the format 
we set up. It will allow the user to enter 
as many records as he likes until he 
presses CONTROL-Q on an empty record. 

The next command, Line 23, closes 
the format file. This keeps it from 
popping up when we get back to the 
READ command in Line 16. 

Line 24, of course, terminates this IF 
section of the program. 

We begin another IF section in Line 
16. This time, we’re seeing if the person 
pressed ‘E’ to edit records. If he did, 
dBASE moves on to Line 27 and does 
the processing related to editing records, 
otherwise it skips down to 45. 

Lines 27 through 30 ask for the name 
the user is searching for and stores it 
in the SEARCH variable. 

The extra spaces after SEARCH are 
trimmed off in Line 31. This keeps the 
user from having to enter the whole 
name. If you were searching for the 
name, PCM Magazine,” you could just 
enter PCM. Otherwise, if you just entered 
PCM with no TRIM function, dBASE 
would look for the word PCM followed 
by 27 spaces. That is, there would have 
to be a record with nothing other than 
PCM in the NAME field. 

The command in Line 32 uses the 
index to find the name entered into the 
SEARCH variable. The ampersand (&) 
preceding SEARCH must be used because 
we are looking for the word contained 
in SEARCH and not for the word 
“SEARCH” itself. This is called a 
macro — a subject for a later article. 

We begin another IF conditional in 
Line 33. We check to see if the record 
number is zero. If it is, then the FIND 
command failed to locate the entered 
name and an error message needs to 
be displayed. If it is not zero, the process 
continues with Line 40 — after the 
matching END IF in Line 39. 

Lines 34 through 38 are executed if 
the record is not found. A message is 
displayed and the computer waits for 
the user to strike a key. The command 
SET CONSOLE OFF in Line 35 prevents 
dBASE from displaying a “WAITING” 
message while executing Line 36. The 
display is turned back on in Line 37. 
Because the record was not found, we 
want to go back to the top of the 
program and wait for another com- 
mand. The LOOP command in Line 38 
takes us back up to the nearest DO 
WHILE command. 


In Line 40, we set the screen format 
to MAILEDIT. 

We edit the current record (the one 
we just found) with EDIT 8 in Line 41. 

Line 42 closes the screen format file. 

If the person had selected ‘X’ to exit 
the program, it would be detected in 
Line 45 and the following two statements 
would be executed. 

Line 46, a solitary USE command, 
closes the database file, and Line 47 
returns to the dBASE dot prompt. If 
this program had been called from 
another, as it will when we are using 
the menu program, control would 
return to that program. 

\ The last line, Line 50, is the ENDDO 
command that takes us back up to the 


DO WHILE command in Line 10 and then 
on to wait for another command. 

This program can be run by entering 
DO MAILEDIT at thedBASEdot prompt, 
or by entering DBASE MAILEDIT at the 
MS-DOS prompt. 

Next 

There have been a lot of new com- 
mands and techniques thrown at you 
in this month’s “Tutor,” but seeing how 
the commands work in a real program 
makes them much easier to comprehend. 

Experiment a bit with the program 
if you like, but keep a copy of the 
original around because we’ll be using 
it next month as we add the report and 
mailing label programs. Have fun! 


Figure 3 



1 

set talk off 



2 

set colon off 



3 

set confirm on 



4 

set bell off 



5 




6 

use MAIL index MA I LNAME , MA I LZ I P 



7 




8 

erase 



9 




10 

do while T 



11 




12 

store ' ' to ANSWER 



13 

erase 



14 

% 20,25 say 'Select: CAldd CEldit eCXlit ' 

} 


15 

get ANSWER p i cture ' ! ' 



16 

read 



17 

clear gets 



18 

@ 20,0 



19 




20 

if ANSWER= ' A ' 



21 

set format to MAILEDIT 



22 

append 



23 

set format to 



24 

endi f 



25 




26 

if ANSWER* ’ E ' 



27 

store ' (30 spaces) 

to SEARCH 


28 

6 20,19 say 'Enter name: ' get SEARCH 



29 

read 



30 

clear gets 



31 

store trim(SEARCH) to SEARCH 



32 

find &SEARCH 



33 

if # = 0 



34 

@ 21,18 say 'Name not found. Press 

any key to 

continue. ' 

35 

set console off 



36 

wait 



37 

set console on 



38 

1 oop 



39 

endi f 



40 

set format to MAILEDIT 



41 

edit # 



42 

set format to 



43 

endi f 



44 




45 

if ANSWER* ' X ‘ 



46 

use 



47 

return 



48 

endi f 



49 




50 

enddo 


cjaa 
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Telecommunicating with Randy 


100, 200, 1000, 1200, 2000 


We’re Talking 
Graphics Transmission — 

Get the Picture ? By Randy Graham 

PCM Contributing Editor 


G raphics is one of the fastest 
growing aspects of personal 
computing. Graphics show up 
everywhere. Businesses use them to 
make the charts and graphs which 
brighten up reports. Computer-assisted 
designing and other simulations inte- 
grate vast quantities of data into easily 
grasped concepts. And where would TV 
commercials be without graphics? 

So, you are into graphics. You have 
a really nice application and with the 
aid of a graphics program, you create 
a real masterpiece. Naturally you save 
it to disk or tape. But a graphics design 
is like a party dress; how often can you 
wear it again? Wouldn’t it be nice if 
you could share it with friends or even 
sell it to stangers for re-use! And, as 
a matter of fact, before you start 
creating that masterpiece to fit the 
particular need, why not ask whether 
just the right piece is already available 
in some library? You know what we 
always say about reinventing the wheel. 

Well, you can always put copy disks 
in a library somewhere and list them 
in some catalog. And, on request, you 
can mail a disk to a friend in another 
city. But you know good and well that 
in this department the questions are: 
Can graphics be sent over transmission 
networks like other data files? Are there 
accessible libraries? Where and how? 
The answers to the above are: yes . . . 
yes . . . however . . . 

Think TV. A beam in the picture tube 
is scanning the optical image focused 
on its face. At each spot, it modulates 


(Randy Graham is a rehabilitation 
counselor working with the handi- 
capped. Personal computing is his 
hobby; telecommunications , one of his 
favorite activities. He has done free- 
lance information retrieval and is an 
inveterate user of the major online 
systems.) 
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a voltage proportional to the brightness 
of that spot, from zero to total. In its 
most elementary form, if the spot’s 
brightness is over its design “threshold,” 
it sends a positive voltage; below the 
threshold there is no voltage. At the 
end of a line, it shuts off its sensing 
to re-trace to the start of the next line 
(no bidirectional scanning here). At the 
end of the last line, it shuts off to return 
to the top of the screen to trace lines 
between the first set. 

The receiver replicates this process, 
sending a pulse or no pulse to agitate 
the phosphor on the face of the picture 
tube and thereby reproduce the visual 
image. For this system to work, camera 
and receiver must be synchronized to 
trace and re-trace together. The infor- 
mation stream is therefore composed 
of voltage-no voltage plus synchronizing 
signals. 

Think computer. The information 
stream is a series of voltage-no voltage, 
on/ off, yes-no, high-low, X’s and O’s, 
ones and zeros. Hey, this is a bit stream, 
and what we have here is a long string 
of binary numbers zipping around the 
cables and airwaves! And computers 
know what to do with binary numbers: 
read them, manipulate them, store 
them. In fact, if you read the bits in 
groups of eight, you can convert them 
to Hex digits and store them byte by 
byte. This process of reading a bit 
stream and converting it into Hex digits 
for processing and storage is called 
“digitizing” — the most popular word 
in electronics today. 

Keep thinking computer. It has a 
circuit to read the bit stream from one 
of the CPU’s output ports and convert 
it into a TV signal which is sent to your 
monitor screen. This circuit gets its 
information from a reserved section of 
memory which holds enough digital 
data to fill the screen. In computer 


graphics we talk about reading the 
screen or dumping the screen to a 
printer. Not so. We are reading and 
writing to the screen memory section. 

This column is not about graphics; 
it is about databases. I just want to 
make sure you understand digitizing a 
TV signal so that it can be processed, 
stored and retrieved. Our description 
was of the most rudimentary systems 
used mostly in security cameras and so 
forth. A real TV signal contains a 
variable value for each pixel’s brightness 
to achieve something of a gray scale 
and a color code for the pixel, so that 
each pixel requires a whole byte or even 
a 16-bit word. And of course, in “real 
TV” an audio signal will be added, etc. 

OK, we can draw pictures with our 
graphics program and save it in digital 
form. Now, about those online libraries. 
Right now you will find three kinds of 
graphics in libraries of information 
services and bulletin boards. 

The simplest form seems downright 
primitive just five or ten years into the 
Computer Age. Back in the days when 
the only form of data transmission was 
the teletype, operators used to while 
away the idle hours sending pictures to 
their buddies down the line. Since all 
they had were capital letters on a roll 
of paper, the pictures were made with 
just X’s and blank spaces. The more 
creative used other keyboard characters 
for shading. Secretaries used to do this 
on their typewriters, too, and I still call 
it “typewriter art.” This mechanical sort 
of art form still exists in databases and 
is an easy way to get started. The 
pictures are not intended for screen 
display — you dump them right to your 
printer. I suppose that if you are using 
an 80-column screen you can display 
them and see a miniature version. 

A more sophisticated picture file is 
one that reads the TV signal in digital 


form, stripping off all synchronizing 
codes, etc. The program is fairly simple 
and you will find them in public domain 
in graphics libraries. The important 
thing is that the program must run on 
your system, since you are leaving 
ASCII behind and talking directly to 
your CPU, the topic of conversation 
being its memory map. You must also 
have a similar little program that can 
read the data files and convert them 
back to a picture which shows on your 
screen. Again, you can find simple ones 
in public domain. 

These picture files will usually be 
BASIC DATA statements and may be 
in two forms. They may be self- 
contained with the graphics generating 
program appended, so when you load 
and run it, the picture appears on your 
screen. Or, the file can just be a series 
of numbers so that you load the 
program, run it, tell it to read the file 
and make the picture. Either way, the 
data file is usually in ASCII format. 

Now, these files have a couple of 
characteristics. One is that they are very 
long. The old Chinese proverb that a 
picture is worth a thousand words 
proved they invented computers centur- 
ies ago. Remember that when you get 
ready to download a picture file. You 


must have quite a large memory buffer 
to receive it. I mean, we are talking 
multi-K’s here. And the length of time 
it takes to download them may make 
you think again about going for a 1200- 
Baud modem. 

The other characteristic is that since 
the bytes are read serially, if there is 
any break or distortion in transmission, 
you get nothing but garbage when you 
try to make the picture. The best defense 
is to use a “bulletproofing” protocol like 
XModem in your terminal program. 
ASCII files are pretty safe, but this 
becomes even more important when we 
go to binary files. 

The third kind of file is used by a 
really fancy store-bought graphics 
program which can produce beautiful 
Hi-Res pictures with shading and 
colors, etc. The data file is so big that 
it is usually stored as a binary file. Now, 
you can send binary files overline, but 
it can be a little tricky. Your terminal 
program must support it and an error- 
checking protocol is essential. The 
results are worth it. 

If you want to explore this fascinating 
— even addictive — area of personal 
computing, CompuServe is a good 
place to start. We portable people can 
find graphics files in our forum, 


although I must confess that I am not 
much taken by the tiny little pictures 
that will fit on the LCD display. Of 
course, the 100/200 is perfectly capable 
of downloading files for programs 
which will generate print graphics. You 
MS-DOS folks can look in the IBM 
forum and find a whole section on 
computer art. CompuServe has its own 
“bombproof” terminal program and it 
checks to see if you are running it; if 
not, it will not download its binary files 
to you. If you think you may spend 
much time in their graphics libraries, 
you might just want to purchase one 
for your machine from them. It is a 
good all-round terminal program as 
well as having a high reliability for 
binary files. 

Ready to jump into graphics? You 
will need a graphics program which will 
run on your system, a terminal program 
and modem which supports an error- 
checking routine like XModem and 
plenty of memory. Now, start playing 
around. Experiment. Start sharing with 
others in the field. Just be ready. 
Someday the boss is going to say, “Who 
can get me a nice graphic to brighten 
up this presentation?” Raise your hand. 
Even if you are the boss. Or, do I have 
to draw you a picture? Q3U 
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DMA Controller 

(Available without DMA Controller to use 
as second board or for IBM compatibility) 




Clock/Calendar 


Clock Battery Backup 


128K-512K Memo 


Serial Port 


Designed for use with the new 
Tandy 1000 Personal Computer, the MFB-1000 
contains three of the most needed functions on a single 
10" expansion card. Using either 64K or 256K DRAM chips, the MFB-1000 
can be populated with up to 512 K of memory bringing total system memory 
to 640K. Additionally, the board also includes an IBM compatible serial 
communications port (identified as COM1) and a battery backed real time 
clock/calendar. As required by the design of the Tandy 1000, the MFB-1000 
also contains its own DMA Controller. However, the DMA Controller can be 
disabled, making the MFB-1000 compatible with the Tandy 1200 as well as 
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911 Columbia Avenue 
if)C« N. Bergen, N.J. 07047 
(201)330-1898 


Dealer Inquiries Welcome other IBM compatible machines. 


ORDERING INFORMATION: 

Visa/Mastercard orders accepted. Allow 2 weeks 
for personal checks to clear. Add $3.00 shipping 
and handling. C.O.D. orders add $2.00. N.J. resi- 
dents add 6% sales tax. 


■ 128K RAM $329.95 ■ 256K RAM $369.95 ■ 51 2K RAM $429.95 


IBM is the registered trademark ol International Business Machines. 
Tandy 1000n200are registered trademarks of Tandy Corp 
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Tandy 1000 Hardware 

Tandy 1000 

TanPak 

The first and only board that your Tandy 1 000 may 
ever need. Your 1000 is very versatile, new 
applications and functions are being developed for 
it every day. And now with the HDS TanPak you 
can keep your options open for tomorrows tech- 
nology. As you know the Tandy 1000 only has 3 
expansion slots, and those are not quite PC 
compatible. The TanPak does the job using one 
expansion slot that normally would require four 
using Tandy boards. The TanPak includes a Serial 
Port, a Clock, and sockets for up to 51 2K of 
Memory Expansion. And the best part of all, it will 
save you some big bucks over the Tandy boards. 

TanPak 128K $399 


Tandy 1000 

TanTel 

300/1200 Baud Internal Modem 

Both 300 and 1200 Baud within the 10” that is 
alloted by Tandy for a board. But that’s not all. This 
internal modem also features automatic dialing, an 
auto-answer feature, full or half duplex, automatic 
speed selection, and a speaker to alert you to busy 
signals and wrong numbers. FCC registared and 
full documentation included. 

Internal Tandy 1000 Modem “TanTel” . . . $299. 

AS SEEN AT THE RADIO SHACK 
COMPUTER SHOWCASES 


Disk Drives 


Fast stepping add on or replacement disk drives for 
half the Radio Shack price $149. 

Tandy 1000 

Eprom Programmers 

These EPROM Programmers plug into the Model 
1000 edge card slot and complete with software 
and documentation. The 24 pin programmer will 
program the following EPROMS: 2704 2708 2716 
2732, 2508, 2516, 2532, 68764, and 68766. The 28 
pin programmer will program the followinq 
EPROMS: 2764, 27128. and 27256. 

24 Pin Programmer $149. 

28 Pin Programmer $149. 


Hard Drive Kit 

Put a 10 Megabyte Hard Drive inside your Tandy 
1000. This Hard drive subsystem includes an 
interface card and a Half-Height Hard Drive that 
directly replaces a floppy disk drive in both size and 
power consumption drive. 

10 Megabyte Internal Drive 

System $895. 

10 Megabyte External Drive 

System $1095. 

15 Megabyte External Drive 

System $1395. 

30 Megabyte External Drive 
System $1895. 

Radio Shack and Tandy are trademarks of Tandy Corporation, TanPak. 
and TanTel are trademarks of Compukit Corporation. 


Ordering Information 
Use our Watts line to place your order Via Visa, MasterCard, or Wire 
Transfer. Or Mail you payment directly to us. Any non-certified funds will 
be held until proper clearance is made COD orders are accepted as well 
as purchase orders from government agencies. Most items are shipped off 
the shelf with the exception of hard drive products that are custom built. 
UPS ground is our standard means of shipping unless otherwise specified. 
Shipping costs are available upon request. 


HARD DRIVE SPECIALIST 


1-713-480-6000 

Order Line 1-800-231-6671 

16208 Hickory Knoll, 
Houston, Texas 77059 
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XTREE Utility Grants 
Extra Power To MS-DOS 


By Lonnie Falk 


MS-DOS is such a powerful operating 
system that it is easy to understand why 
it has won such great acceptance in the 
world of microcomputers. So widely is 
it used that it has, for all practical 
purposes, become pretty much the de 
facto standard in the personal computer 
field. 

A couple of the concepts, however, 
are not quite so easily understood. Chief 
among them, especially to newcomers, 
is the directory tree concept — the 
possibility of having subdirectories 
within other directories and that 
various files can be allocated in each 
of these directories. 

Then, there are things you just cannot 
do. One of them, particularly galling, 
is the inability to rename a directory. 
I remember when I set up a file for 
depreciation and capital assets and 
named it TEECEE (after the initials of 
our accountant) while I was developing 
it. When it was finished, however, it 
seemed more appropriate to call it 
R55ET5 — but there was no way to 
rename a directory. 

Finally, there is the inability to do 
very much with more than one file at 
a time. This, primarily, is why TEECEE 
still exists as a directory. I know I could 
have created a new directory named 
ASSETS, moved all the files in the 
TEECEE directory, one by one, to 
ASSETS, and then deleted all the files 
from TEECEE and, finally, removed 
TEECEE. It seemed easier to just get the 
people in bookkeeping used to using 
TEECEE as the directory where the assets 
programs were stored. I know our CPA 
feels justly honored! 

Despite the brilliance of Bill Gates 
and his minions at Microsoft, there are 
a lot of things that could have been done 
with MS-DOS. Fortunately for all of 
us, the people at Executive Systems, 
Inc. seem to have done them. 

They have created a fine utility 
package called XTREE which should 
be at the top of just about anyone’s hit 
parade. XTREE solves all the problems 
I mentioned above and a lot more, 
besides. In addition, it does it with 


elegance and style that is certain to 
make it a “must” for just about any 
MS-DOS user. 

Let’s go into some detail here: 

The main XTREE screen gives you 
five important types of information — 
and gives them to you the way you want 
it. At the very top of the screen (which, 
by the way, uses colors very effectively) 
your current path is shown. This is 
significant since the “main” part of the 
screen is a graphics representation of 
the tree structure of your disk — 
showing the main directories, subdirec- 
tories and any directories under that. 
These are arranged in alphabetical 
order (a nice touch) and you can use 
the arrow or PG UP and PG DN keys 
to quickly move through all the direc- 
tories you have. 

As you move through the directories, 
a highlight bar shows where you are 
and the path indication changes at the 
top of the screen. You always know not 
only what directory you are in, but how 
to get there. I have used this part of 
the display as a teaching aid here in 
the office to explain the directory tree 
structure to a number of our people. 

Below the graphics representation of 
the tree structure is a listing of the files 
in the selected directory, once again in 
alphabetical order. You access the 
window by simply pressing the RETURN 
key and then use the PAGE or arrow 
keys to scroll through these files. 

To jump ahead, a more complete 
listing of files is available simply by 
pressing RETURN again. The graphics 
representation of the directory tree goes 
away and even more files can be shown. 

To the right of the short file window 
and the graphics tree are a set of 
windows which give statistics on the 
disk you have accessed and the files. 
This is very helpful information. 

I suppose I should mention at this 
point that XTREE is fast! It runs 
through an entire 10 megabyte hard 
disk on a Tandy 1000 or 1200 in about 
five seconds. For the Tandy 2000 it 
takes about double that time since it 


uses an alternate screen drawing module 
which is somewhat slower. Even with 
the 2000 version, I have no complaints 
as to speed. The 1000/1200 version is 
pretty blinding when you consider 
XTREE is looking at 10 million bytes. 

Were this all XTREE did, I would 
be moderately pleased that it allows me 
to find things so readily on my disk. 
However, we’ve really only touched the 
tip of this marvelous utility. 

XTREE ’s true power comes from its 
ability to manipulate files and directo- 
ries. You are able to delete, make and 
rename directories at the push of a 
single button. Additionally, you can 
show all files in a directory (or specify 
certain files) in an expanded window, 
log onto another disk or determine the 
available file space for making copies. 

Let’s look at that last one for a 
minute. Suppose you need to know 
whether you have space on a floppy (or 
a hard disk, for that matter) to copy 
a set of files. Instead of adding bytes 
with a calculator and then seeing how 
much vacant space there is on a disk, 
you simply use the Available command 
to check the space. Because XTREE 
also allows you to specify a group of 
files and find the total number of bytes 
in the group, it is a simple matter to 
determine whether you have space. 

Oh yes, there is also a Volume 
command so you can change the name 
of the disk without reformatting it. 
Super, super, super. 

I have saved the best part of this 
directory command explanation for last 
— the tagging process. By specifying 
a certain kind of file, you can tag them 
for other functions. This, like all of 
XTREE '" s commands, is a simple one- 
button operation. 

But, there is more: file commands 
which allow you to set attributes, copy 
files, delete files, rename files and view 
files. In combination with the tag 
functions, which work on files as well, 
you can copy whole groups of files with 
a simple keystroke. 

It is here that the real power of 
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XTREE comes into play. Want to copy 
all your .COM files from the root 
directory to a new BIN directory? 
Simply use a single keystroke to tag all 
the .COM files, a second to copy them 
to the new directory and a third to delete 
them from the root directory. 

The view files function lets you look 
at the file itself, in either ASCII or 
hexadecimal format. You can mark 
special parts of the file if you wish, and 
even control the speed the file scrolls 
on the screen. You can also move 
through the file a line at a time by hand 
if you wish. 


Finally, XTREE has the ability to 
exit to DOS to perform other functions 
or run other programs. Once you have 
done that, you simply return to XTREE. 

XTREE has fine error-handling and 
is extremely easy to work with. It is 
not copy-protected, so you can move 
it to your hard disk without any 
problem. And, as mentioned earlier, it 
is extremely fast and very easy to use. 
We had it up and running about five 
minutes after we opened the box. Menu 
bars at the bottom of the screen 
virtually eliminate the need to use the 
manual and there is online help as well. 


CUSTOM SOFTWARE 
^ for your MODEL lOO or 
NEC PC 8201 A 


CBUG 


CBUG is the ultimate debugging utility for your lap computer. Requires less than 
3K RAM. 100% machine language. Features include: 


• Instruction Step 

• Call/Instruction Step 

• Zero/Fill Memory 

• Load Data 

• Alter Registers 


• Dump Memory & Registers 

• Search/Replace 

• HEX math (+ & -) 

• Decimal — HEX conversions 

• Display in HEX or ASCII 

$29.95 


RENUMBER 

The utility you've been waiting fori Now you can renumber your BASIC 
programs IN PLACEI This powerful, 100% machine language program is 
relocatable to any convenient place in memory. Requires less than 3K RAM. 
Renumber all or part of a program. You specify line numbers and increment. 

$24.95 


LET S PLAY MONOPOLY* 

It's you against the computer and the computer is a tough competitor. Super fast 
machine language graphics display the whole board at all times. The computer 
makes all its own decisions. You're really going to love this game. $29.95 


ASSEMBLER 

A powerful 8085 assembler for your lap computer. Recognizes all the standard 
pseud-ops. Immediate data may be in decimal, hex or ASCII. Relocatable to any 
convenient place in memory. Several built-in Macros make your programming 
easier. FASTI Written in 100% machine language and requires less than 3K RAM 

$32.95 


MELODY MAKER 

A musical program generator. Use simple cursor controls to enter sheet music. 
Melody Maker writes a program to play the song. You can even use Melody 
Maker to add musical routines to your own programs. $ 19.95 


CUSTOM SOFTWARE 

• 1308 Western • Wellington, Kansas 67152 • 
316/326-6197 



Please include $ 1 .00 for shipping. For orders 
outside the U.S., include sufficient postage 
for airmail delivery. U.S. funds only. 



‘ Monopoly is a trademark of Parker Brothers 


Utility packages should make life 
easier for the person using them. 
XTREE easily does this and does it 
extremely well. If you are going to 
purchase a utility to help you view, 
manipulate or restructure files or 
directories, XTREE is absolutely for 
you. It is a beauty of a program! 

(Executive Systems, Inc., 15300 Ventura 
Blvd., Suite 305, Sherman Oaks, CA 91403, 
$49.95) 

Software 


Tune Smith: 

‘Composer and 
Record Album’ for 
the 1000, 1200 

For those who thought they had 
everything for their computer, how 
about TuneSmith, a “record album”? 
Now, we can enjoy songs played on our 
computer like “Clair de Lune,” “Ma- 
laguena,” “What is This Thing Called 
Love,” “Foggy Mountain Breakdown” 
or classical selections from Bach. 

TuneSmith runs on the Tandy 1000 
and 1200, and their clones. The songs 
play on the 2000, but the tune editor 
does not work. The sound generator on 
the 2000 makes the Bach music seem 
like it’s played on a harpsichord. The 
software operates in color on an RGB 
monitor, but unfortunately is copy- 
protected. It’s unusual for a fifty dollar 
software package to be copy-protected. 
The program disk must be resident in 
Drive A on the hard disk Tandy 1200. 
The ten songs included with TuneSmith 
are written in BASIC, so they can be 
copied to another computer, such as the 
2000, and run from BASIC. 

This copy-protection causes problems 
on the Tandy 1000, since not all floppy 
disk drives are made by the same source. 
The TuneSmith music editor would not 
work on several machines at the Radio 
Shack computer store because the copy- 
protection scheme won’t read a non- 
standard drive. 

The software editors are trying to 
revise the program to make certain it 
works on ail 1000s. A good benchmark 
test for your 1000 is to try TuneSmith. 
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If the program works, the drives are 
standard, so other software should 
work with no problem. 

The software is packaged exactly like 
a record album, with a 22-page user’s 
manual in the album jacket. Besides a 
selection of songs to play on the 
computer, there is an on-screen tutorial, 
a demo program showing differences in 
tempo and other enhancements of “Red 
River Valley,” a help screen and a full 
screen editor. 

When songs are played, a piano 
keyboard is illustrated at the bottom 
of the screen, and both treble and bass 
clefs are shown at the right-hand side, 
with the note(s) moving along the score. 

Forty function keys are used to edit 
the songs and increase or decrease 
tempo, raise or lower octave, play or 
edit music, change playmode and select 
color monitor background, foreground 
and border. Word processing functions 
control the cursor, erase and insert 
characters and move between bars and 
measures in the song. 

It is a bit more difficult to compose 
music using BASIC play statements, 
rather than seeing a musical score on 
screen and choosing notes like the 
freeware program PC Musician does. 
However, if it’s been a long time since 
you had piano lessons, and if you are 
composing music by ear rather than 
from sheet music, the play statement 
data feature shouldn’t bother you. 

A nice feature of this software is the 
ability to program two “voices” to play 
at the same time. The Tandy computer 
soundboard has one voice function, but 
TuneSmith figured out a way to enter 
chords that play along with the melody 
line. The lower notes are programmed 
to sound a fraction of a second before 
the higher notes, and that fools the 
listener’s ear into hearing both the 
melody and the accompaniment at the 
same time. 

A useful section in the software 
manual is instructions on how to wire 
an external speaker to the computer. 
There is also a schematic diagram to 
connect the computer to a stereo 
amplifier, using $2 worth of parts from 
Radio Shack. Other attachments to the 
computer, such as delays, phasers or 
distortion boxes can be added to make 
the computer sound like a rock band. 

There’s a good music reference 
section in the user’s manual that reviews 
sheet music symbols. BASIC play state- 
ments such as note or pause lengths, 
tempo, and music foreground and 


background are explained very clearly. 
Programming chords or adapting 
scores is simple with TuneSmith , and 
the manual has excellent instructions. 

This music program will amaze your 
friends, and is a nice break from 
business software. Perhaps Mozart 
could have written his music a lot faster 
using TuneSmith . 

— M.J. Batham 

(Blackhawk Data Corporation, 307 N. 
Michigan Avenue, Chicago, IL 60601, (312) 
236-8473, $49.95) 


Software 

DATA/ SORT 
Sorted Databases 
with User-Definable 
Forms 

By Jay Halcomb 

DATA/ SORT is an attractive, easy- 
to-use and efficient tool. The package 
creates and maintains sorted database 
files in RAM, and can send database 
records to a variety of destinations: 
RAM text files, other computers 
(directly or via phone lines), the printer, 
or the cassette recorder (or copy the 
entire database to disk via the disk- 
video interface). One can merge data- 
bases with form letters to print the 
ubiquitous personalized form letter. 
Finally, users can design their own data 
entry forms, and enter data manually 
or with the bar code reader. 

The product comes in the usual 
Tandy packaging: a vinyl case contain- 
ing a cassette with the necessary files 
(nine of them), an instruction manual 
of 42 pages and a pocket reference 
guide. The manual is well-done, and 
covers the steps of loading and running 
the programs very explicitly. As a 
result, the program seemed quite easy 
to use upon first running it, despite a 
few fumble-fingered mistakes on my 
part. 

Of the nine files on the cassette tape, 
the user will normally be concerned 
only with two programs: either DATA 
(about 6.5K) or DA TA lF(about 7.5K), 
and iS , 0/?r(about 2.5K). The other files 
are example files, and programs con- 
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cerned with loading a small assembly 
language program called by the main 
programs. 

The principal database program 
(written in BASIC) comes in two versions: 
DATA and DATAW. DATAW is a 
duplicate of DATA , except that it 
allows the use of the bar code reader. 
The other main program is SORT (also 
in BASIC), which, of course, sorts the 
database files the user creates in RAM 
using DA TA or DA TA W. Since DA T- 
AW is a clone of DA TA , I will describe 
DATA'S functions in some detail, and 
note later the added capabilities which 
DA TA W supplies through the use of 
the bar code reader. 

DA TA creates and maintains alpha- 
numeric database files in RAM, in 
ASCII format. Upon first running 
DATA , the user is asked for the name 
of the form file he or she wants to use. 
The form file (which must begin with 
‘D’) is a small RAM file which users 
create, using TEXT , and which simul- 
taneously defines the data record 
(fields) and data entry form (fields and 
prompts) for a particular application. 
(Three sample forms, called ‘D’ screens, 
are provided: DNOTE, DINV and DRDRS.) 

A data record can use up to 16 fields 
of variable length, and the size of the 
record is limited only by the constraint 
that one complete record, including 
prompts, must occupy only one Model 
100 screen (eight lines). The prompts 
appear only when the user accesses the 
database through DATA ; they are not 
written to the database as part of the 
record. 

After supplying the name of the 
desired data form, the user is asked for 
the name of the data file he or she wishes 
to access. When the user has supplied 
this, the display is filled with the data 
form previously named, with blank 
fields. At this point the user can do 
several things (the function keys, with 
their labels displayed on the label line, 
provide the branches): 

1) Begin entering data into a form. 
The data (alphanumeric) can be edited 
with the DELete key, and the ENTER key 
moves one from field to field. When 
the user has entered all the data he or 
she desires, there is the option of 
appending the record to the named 
database and beginning a new record, 
or exiting to menu and discarding the 
record. 

2) Review all the records, or a selected 
subset, in the named database. One can 
search in any field with any specified 


search string, and all the records 
matching the search string will be 
consecutively displayed at the user’s 
prompting. An old record can be edited 
and resaved. 

3) Output the database to a device 
or other RAM file. The output format 
can be specified in a variety of ways: 
columnar or spread, all fields or selected 
fields, one or several lines, all records 
or selected records. The device can be 
the cassette recorder, a COM line 
(which might be attached to another 
computer, or a phone line) or the 
printer. All of the database, or selected 
records, can be appended to any 
existing text file to create reports. 

4) Merge the database with a pre- 
viously prepared document stored as a 
. DO file in RAM, such as a form letter. 
With this capability one can merge all 
records or a selected subset, and choose 
the fields to appear in the form letter. 
The output from the merge can be sent 
to another RAM file, the cassette, the 
printer or a COM line. 

The SORT program offers the ability 
to sort the selected database on any 
given field, with three types of sort: 
distinguishing uppercase from lower- 
case, not distinguishing uppercase from 
lower, and numeric sort (which sorts 
numbers absolutely, regardless of the 
digit spaces they occupy in the field 
being sorted on; e.g., 001 and 1 are 
treated alike). To run SORT one first 
supplies the names of the data form and 
the database; then the user is given a 
display of the data form, and chooses 
the field to sort on by moving the cursor 
with the cursor keys. 

DATAW operates just like DATA , 
except that within the data form files 
— the ‘D’ screens — the user can 
indicate the fields to hold bar code 
input. Then, with DATAW, the user 
can enter information into those record 
fields with the wand, or enter informa- 
tion manually (and enter data into the 
non-wand fields manually as usual). 
This requires that the user have his or 
her own bar code reader software, 
which DA TA W uses. DA TA W accepts 
the widely used decoding programs: 
UPC2, 3 of 9, Plessey (and perhaps 
others, though which ones aren’t 
indicated). I did not run DA TA W , as 
I lack a bar code reader. 

DATA and SORT performed all 
their functions quite rapidly, with no 
difficulties. The creation of the data 
forms took a (very) little trouble as one 
has to be a bit careful in the format. 
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But once the initial learning phase was 
passed, the creation of forms to taste 
was no problem. The initial user should 
have no problem running DATA/ 
SORT to its full capabilities within a 
couple of hours of reviewing the 
manual. The program offers a strong 
selection of capabilities, and is well- 
designed. The real point of the Model 
100, of course, is that it is truly a 
portable computer. Anyone who has 
the need to collect formatted data in 
the field will find DA TA/SORT well 
suited to his purpose. With the ability 
to send the database records to a larger 
computer, formatted as the user likes, 
the 100 can be used for the field 
collection, and later manipulate the 
data as desired with the user’s primary 
computer. 

The manual intimates that the small 
assembly language subroutine, called 
by DATA and SORT ' will not be a 
menu selection, but this is not the case. 
The routine itself is loaded just below 
high memory, where it takes just a 
couple hundred bytes, but if you have 
another program which wants that 
space, there are simple arrangements 
for lowering the routine. 


The DA TA program seems to require 
about 2.5 K of free space available in 
RAM to run. If it doesn’t find it, the 
message “Memory Full” is displayed, 
and the program shuts down so that 
the user can free some space by deleting 
files or copying them to another device. 
The -SO/^Tprogram doesn’t require any 
extra free space, as it sorts the database 
within its file. 

Redirecting any of the output from 
DATA from one device to another 
requires that the user reformat the data 
each time, even if he or she wants to 
use the same format as previously used. 
This is a minor inconvenience, as 
formatting the data is quickly done by 
answering a short series of questions. 

One can’t directly edit a database 
using TEXT (unless with extreme care), 
as this is liable to change the size of 
a record field, and make the database 
forever after inaccessible to DATA. 
But, of course, old data records can 
always be accessed and edited through 
DATA , for updates. 

(Tandy Corp., One Tandy Center, Ft. 
Worth, TX 76102, $49.95) 


Software 

Synonym Finder: 
Words For The Wise 

Synonym Finder by Writing Consult- 
ants, is a single disk program designed 
to give a writer an online dictionary of 
over 90,000 words with 9,000 keywords 
that average over 10 synonyms each. 
This program integrates itself nicely 
with WordStar or Multimate. The 
program takes up very little disk space 
and since it’s only called when required, 
very little memory is used. 

When the package arrived I was a 
little disappointed, at first, with the 
documentation. The first thing I thought 
when I saw the photocopied booklet 
was, “Another thrown together soft- 
ware package.” On the first page I read, 
“. . . all you need to operate it is this 
letter.” Well, they are right. You load 
it first and then your word processor. 
The only time you know it’s there is 
when you need it. This package is so 
easy to use that anyone, in a matter 
of minutes, can check the spelling and 
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$4095 

(REGULAR $99.95) 

30 Day Money Back Guarantee 

Powerful & sophisticated payroll program 
Yet Easy to use on your IBM Computer 
(or compatible) 

Complete Employee Records. All government 
required information Detailed 941 form, W2’s, FICA, 
FWT, SWT (for your state) & misc. deductions 

The automatic mode in this system can be set up in 
less than one minute to produce up to 999 pay checks 

Imagine - from the first key stroke to the last 
in less than one minute 

SAVE TIME - SAVE MONEY - ORDER NOW 
This revolutionary breakthrough in payroll systems 


Joe Lynns Payroll System 49.95 

Shipping & Handling 3 00 

5% Service Charge for Credit Cards (2.50) 

TOTAL AMOUNT OF ORDER $ 



Joe Lynn 


Computer Services 



23501 W. Gagne Ln • Plainfield, IL 60544 

815-436-4477 
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No Technical Knowledge Required !!! Easy to Use. 


•••*• R A M D I S K ••••• \$49 

RAMDISK — Use spare memory as a superfast disk to 
speed up applications. (You specify Ramdisk size). 
Appears to programs as a disk, but gives instant 
access. Easy to install and use. 


***** ALPHA TOOL BOX ***** | $ 5 9 

ALPHABETIZED DIRECTORY DISPLAY - View 
Directory on I screen ( 5 columns, sorted. FastM 
FIND FILE — Search all directories for file. 
DIRECTORY DTREE — Display all sub-directory 
names in an easily readable form. 

BACKMOD MODIFIED FILES - Quick, automatic 
backup of files. Backup in same format as original 
Perfect for Hard Disks. Also for floppies. 


***** BETA TOOL BOX ***** |j 

SINGLE KEY COMMAND — Define any text string 
(9 r DOS Command) as a single keystroke. Press 
single kev to execute commands ! 

COUNT LINES — Superfast count of lines in a file. 

DUMP FILE IN HEX — Formatted dump of file in 
Hex/Ascii. Scroll Forward, Backward, Begin, End. 

CHANGE FILE ATTRIBUTES - Make files hidden 
readonly, archive, etc. Set or reset attributes. 


***** SERIAL PRINTERS 


I $49 


Connect your Serial Printer to your RS232 port. Full 
handshaking. Easy commands. Complete instructions. 


Don’t miss the review of these ALPS utilities in the 
February, 1985 issue of 80-Micro (P.119). 

More ALPS Tools Available. Call or Write for ALPS 
catalog. Customer Support !!! 


ALPS 
23 Angus Road 
Warren, New Jersey 07060 
201-647-7230 
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rearrange words in a document. This 
program is the “missing link” to a 
complete word processor. 

To change words with Multimate is 
a two second operation. The ease of 
use is amazing. Take the statement “I 
was amazed to find this package so easy 
to use.” to check the spelling and find 
a synonym for amazed, all you have 
to do is move the cursor to the ‘a’ in 
amazed and press CTRL/F6. You will 
be given a choice of words that look 
like this: “amaze: (vb) astonish, astound, 
dumbfound, flabbergast, surprise.” Just 
move the cursor to the one you want 
and press ENTER. It will be inserted into 
your text. The only bug I’ve found is 
if you don’t want to change the word 
and press ESC to cancel, the word 
disappears from the display. It’s not 
gone from the document, just from the 
display. It will reappear when you make 
a page change or scroll the screen. This 
is just a minor irritation, but one that 
should be corrected. 

I used this program with WordStar 
with the same outstanding results. This 
program is a must for the serious writer 
and a convenient and versatile addition 
to have for your word processor. The 
$124.95* price tag is a little steep for 
the hobbyist, but justifiable if you write 
frequently and, like me, need help with 
the English language. 

(* Editor’s Note: Information at 
press time states that an introduc- 
tory price of $79.95 is available 
to PCM readers, and that Writing 
Consultants has changed the 
program’s name to Word Finder . ) 

(Writing Consultants, 11 Creek Bend Drive, 
Fairport, NY 14450, 716-377-0130, $124.95) 

— Brian Fernalld 


Software 


Sargon III is a Royal 
Chess Mate 

By Bruce Rothermel 

Once upon a time there was a great 
Mesopotamian king who ruled Assyria. 
Although he was a kind and benevolent 
ruler, he was primarily known as a 


skillful warrior. He personally led his 
troops and often succeeded in winning 
battles where the numerical odds were 
against him. His name was Sargon II. 

Today there is a Sargon ///, not a 
king or benevolent ruler, but a very 
skillful opponent. Sargon III is the king 
of PC-DOS computer chess games — 
but runs royally on the Tandy 1000. 

Marketed by Hayden Software, 
Sargon III requires only a 128K, single 
disk drive, monochrome monitor Model 
1000 or 1200 to operate. 

For those interested in learning chess, 
Sargon III may be a painless way to 
introduce yourself to the game without 
experiencing the frustration of having 
an experienced player coach you and 
constantly comment on your dumb 
moves. Although challenging at the 
upper levels, Sargon III also has many 
features to help a beginner. 

The first chapter of the 85-page user 
guide has the information needed to get 
a novice to both the computer and chess 
running and playing. It includes instruc- 
tions from the U.S. Chess Federation 
on the basic rules of chess. 

Sargon III also has many options to 
make the program challenging to any 
player, from beginner to master. There 
are nine levels of play, ranging, in my 
opinion, from a challenging game to an 
impossibly ferocious opponent. An easy 
option stops Sargon III from thinking 
while you are thinking, making the odds 
more favorable for you. 

Sargon III has these options: the 
ability to terminate the game currently 
in play and start a new one; to just quit 
when you can’t take it any more; to 
change Sargon* s difficulty level while 
playing a game; and the ability to halt 
Sargon' s thinking at any time and force 
it to make a move. At higher levels, 
Sargon III is given more time to think 
and analyze the possible consequences 
of all possible moves and your counter 
moves. The more time given, the more 
difficult an opponent it is. 

Also, other options include: Changing 
sides during a game. Once Sargon III 
has you hopelessly pinned, you can 
change sides and watch Sargon III 
wiggle out of the trap; inverting the 
playing board so your pieces are either 
at the top or bottom of the screen; 
taking back moves. This is an especially 
nice option that you rarely get with a 
human opponent. An especially bad 
move can be taken back even if the game 
has progressed quite a few moves. You 
can “unplay” the game one step at a 


time. You may have Sargon III suggest 
a move for you. Unlike a human 
competitor, this will be the best move 
Sargon III thinks you have. Truly a 
competitor without an ego. 

You may have Sargon III act as a 
referee for two human players. Sargon 
III will check the legality of each move, 
maintain a move list and can replay, 
save or print the game that has been 
played. 

Sargon III gives you the choice of 
turning the beeper on or off; replaying 
a game in memory; printing a list of 
moves in a game; writing the current 
board positions to a printer or saving 
a game to disk for continuation, 
analysis or replay later. 

You may set up any position of pieces 
on the game board. You may change 
the position of pieces on the current 
game or set up a game in progress for 
analysis. You may also skip a move. 
It’s cheating but you can do it. 

Sargon III is well equipped to play 
a challenging game. It has an opening 
library of over 68,000 different positions. 
Occasionally you see Sargon III ref- 
erencing its disk file before coming in 
for the kill. This opening library can 
be canceled, forcing Sargon III to think 
for itself. There is even an option to 
have Sargon III show you what it is 
thinking as it analyzes its possible 
moves. You also have the capability of 
using a light pen to move your pieces. 

On the flip-side of the disk 107 
historical chess games are stored. These 
were selected by American chess master 
Boris Baczynski. These games may be 
reviewed one move at a time or Sargon 
III will automatically replay the game. 

In summary, Sargon III is an out- 
standing computer chess game. Sargon 
II would have been proud. 

My only negative comment is that 
for beginning chess players, the easiest 
level is very difficult. A beginner will 
be annihilated by Sargon III unless he 
asks for a lot of help from Sargon III 
during the game. 

In a Computer Chess tournament 
held in 1984, hosted by chess master 
Julio Kaplin, Sargon ///easily beat out 
the other two top computer chess 
programs, Blue Bush Chess and Spoc. 
Kaplin, however was able to defeat 
Sargon III. Hurray for the humans! 

If you want to sharpen your chess 
skills, take a break from number 
crunching, or just play with an opponent 
who won’t smirk when your queen gets 
taken by a pawn, Sargon III might be 
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ANDY 1 OOP - 640KI 


for you. But remember, Hayden Soft- 
ware is in the PC-DOS market and will 
not formally support Tandy computers. 

(Hayden Software Company, 600 Suffolk 
Street, Lowell, MA 01854, $49.95) 


Software 

Two Tender Morsels 
For Those On Byte 
Diet 

By Dennis Kirley 

The chief problem with your lap-top 
machine is memory: there is never 
enough of it. Text files devour it; BASIC 
programs even need work space. Each 
byte is a delicacy to be savored. (After 
all, they even call it a “menu.”) To help 
you count bytes and prevent your 
programs from getting fat, Custom 
Software serves up two tasty machine- 
language morsels: Men-U-Tility and 
ByteFyter. 

Both programs load slowly from 
cassette, POKEing large files into RAM. 


If you do not have other machine 
language files in your machine, loading 
is simple. But if you have other .CO 
files and need to relocate ByteFyter or 
Men-U-Tility , then you may find the 
documentation confusing. Men-U- 
Tility asks for the start address while 
ByteFyter insists on the highest address 
usable for BASIC. Since both programs 
come from Custom Software, the 
approach to relocating files ought to 
be consistent. 

Men-U-Tility takes over the Model 
100’s menu to give you instant file 
length and function key utilities. It 
moves the display of available bytes to 
the top line of the LCD so that it can 
label the function keys. At the touch 
of a key, you can rename, kill, print 
or make files invisible. You can also 
set the day, date, time or even an alarm 
that works in all modes. Men-U-Tility 
lurks in protected memory, but 256 
times each second your PoCo gives 
Men-U-Tility the opportunity to take 
control or sound the alarm. Best of all 
Men-U-Tility only uses 1,945 bytes and 
is very fast! 

With Men-U-Tility , you can rename 
a file by highlighting it on the main 


menu and pressing FI. Men-U-Tility 
then prompts for the new filename. You 
can even rename the ROM programs. 
Killing a file is just as simple; select it 
and press F2. Men-U-Tility asks ‘Sure?’ 
and will only delete the file if you 
respond ‘Y\ Want to make a file 
invisible to protect it from view or to 
save a menu slot? Select the file and 
press F4. If you need to make files 
reappear later, press CODE V. 

Men-U-Tility will set day, date and 
time from the main menu sparing you 
the BASIC syntax. This is a nice but 
trivial feature, since BASIC is not that 
bad. In any case, unless you encounter 
frequent cold starts, you won’t need to 
set the clock very often. 

Much more useful is the alarm 
function which beeps no matter what 
you are doing. Press F8 from the main 
menu to set the alarm, and use BASIC, 
TEXT or TELCOM. You will hear the 
alarm no matter what program you are 
using. One complaint: when the alarm 
goes off, you must return to the main 
menu to shut it off. This is a real 
nuisance if you are online or in the midst 
of a program. 

Men-U-Tility also formats and prints 
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text files. You can set a left margin, 
line width, top and bottom margin and 
page length. The print facility even lets 
you send embedded control codes to 
the printer for underlining, condensed 
print and the like. The only major print 
functions missing are headers and 
footers. Men-U-Tility is an excellent 
formatter for simple documents and 
drafts. 

Although 1 did not test Men-U-Tility 
with the disk/video interface, the 
documentation indicates that the pro- 
gram will cause the menu to appear on 
whatever screen you are using, rather 
than forcing the menu to the LCD. This 
removes one of the major nuisances in 
using the interface. 

Having a single machine language 
program is rarely a problem; adding a 
second can cause problems or even a 
cold start. Custom Software tries to 
eliminate this problem by making their 
files relocatable. Still, I did suffer cold 
starts using multiple . CO files. I strongly 
suggest backing up all files before 
loading a second machine language 
program. 

ByteFyter is a good companion 
program to Men-U-Tility , but with a 


more limited audience. This machine 
language program removes unnecessary 
spaces and remarks from BASIC pro- 
grams. Many packer programs will do 
as much. ByteFyter fights the byte by 
packing BASIC programs in place and 
even combining lines to save the five 
byte per line overhead. Like Men-U- 
Tility, ByteFyter is fast. 

ByteFyter can be executed from the 
main menu, run from a BASIC program, 
or used as a subroutine. Once called, 
ByteFyter needs the name of the 
program and the maximum line length 
to use for combining lines. ByteFyter 
checks program logic before combining 
lines so that the compressed program 
will run correctly. 

The manual cautions that you should 
copy each file to tape first since 
compression is done in place and the 
original file deleted. I did not encounter 
any problems, but this is good advice 
because certain BASIC combinations 
cause ByteFyter to choke. The com- 
pressed program may not run properly. 
Once finished, ByteFyter reports the 
original and the compressed size in 
bytes. 

Custom Software indicates that 


ByteFyter is primarily for developers of 
BASIC programs. Running ByteFyter on 
purchased software saved some memory, 
but not much. The net result may be 
room to squeeze just one more program 
or text file into memory. Every byte 
counts, so even if you never write any 
BASIC, you may still benefit from a little 
byte fighting. 

Men-U-Tility is billed as adding 
features to your portable that should 
have been there in the first place. Since 
I have kept a program for reporting file 
length and making files invisible on my 
machine almost as long as I have had 
it, I certainly agree. The added features 
are a real plus; Men- U-Tility allows you 
to manage every byte. It makes fighting 
the byte almost painless. The only thing 
it doesn’t do is give you more memory. 
ByteFyter gives you the next best thing: 
more free memory. While your pro- 
grams diet, you will be savoring each 
byte. 

(Custom Software, 1308 Western, Welling- 
ton, Kansas, 67152, 316/326-6197. Men-U- 
Tility and ByteFyter supplied on cassette 
tape with documentation for $24.95 each 
plus $1 S/H) 


Plot Against Your Competition! 

with QuickPlot® 

We’re the people who gave the CGP- 
115 Color Plotter business status. 
With QuickPlot, your Model 100, or 
Tandy 200, produces high quality 
line-, bar- and pie-charts in vivid 
color. Simple data entry and flexible 
chart formatting makes QuickPlot 
and the CGP-115 Color Plotter the 
logical choice for the professional 
who wants to plot his profits— not 
spend them. 
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Complete QuickPlot Package 
Includes: Bar Chart, Pie Chart 
and Line Graph. Data and chart 
formats save to disk or tape for 
future plotting. 


STILL ONLY 

$49.oo 

We pay shipping 
on pre-paid orders 


Model 100, Tandy 200 and CGP-115 are 
registered trademarks of Tandy Corporation. 


Now you have a friend in the software business. 

Computer Solutions Co. 
P.O. Box 24383 
Louisville, KY 40224-0383 
(502) 245-0232 
Call or write to place your order or send for tree 
information. 
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New Products 

Department 



Full-Screen Editor 


Adam Systems Corporation has a 
new full-screen editor on the market. 

PQfEDIT is a user-friendly full- 
screen editor program enabling you to 
edit a (ASCII) text file in a page rather 
than line-by-line format. It is an 
attractive alternative to the EDLIN line 
editor. 

The program is ideal for anyone who 
needs to create, display, or update text 
diskette files for letters, charts, program 
data, documents, tables or programming 
language source statements such as 
PASCAL, FORTRAN, ASSEMBLER, C, and 
BASIC. 

PQfEDIT is designed for the Tandy 
2000, the IBM Personal Computers 
series and IBM compatibles running 
MS-DOS and with a 25-line by 80- 
column display. The program is com- 
patible with any release of DOS (1.0 
to 3.x). 

Text is edited in a window of 23 lines 
by 75 or 80 characters. Editing features 
available include cursor positioning, 
character insert delete and replace, 
horizontal and vertical page scrolling, 
and commands such as delete, add, 
copy and move lines, join and split lines, 
locate and replace strings, and get and 
put lines to disk. The program can also 
accept embedded printer-formatting 
control codes. 

PQfEDIT was written in assembler 
language. All 60 user commands are 
keyboard driven by a one- or two-key 
keystroke sequence. Each command is 
explained in the users’ manual and 
summarized in both the on-line help 
display and the command reference 
card. 

The program is provided in a portfolio 
to protect the system diskette and 
manual and comes with an uncondi- 
tional 30-day guarantee. 

PQfEDIT is $45 plus $2 shipping. 
Contact Adam Systems Corporation, 
5919 Munson Court, Falls Church, 
Virginia 22041, (703) 3779-0669. 


Local Area Network 
Enhancements 

Standard Microsystems Corporation 
has added three application enhance- 
ment software packages to its local area 
network product line. 

Standard Microsystems Corporation 
is marketing both the local and remote 
versions of LAN: Mail Monitor™, an 
electronic mail and file transfer system 
for up to 25 users on a local area 
network. The remote version includes 
software for communications over 
phone lines and provides for up to 
10,000 users. In addition, the company 


Electronic Bilingual 


World travelers will never be at a loss 
for words again thanks to the TRANS- 
LATOR 8000 electronic pocket diction- 
ary. Marketed by Langenscheidt Pub- 
lishers, Inc., the world’s largest publisher 
of bilingual dictionaries, this state-of- 
the-art electronic device, compact 
enough for a handbag or pocket, is 
available in three editions: Spanish, 
French and German. Its suggested retail 
price is $69.95. 

At the heart of this electronic dic- 
tionary is a microcomputer with 48 K 
bytes of memory. Each version of the 
TRANSLATOR 8000, true to name, is 
programmed with 8000 words and 
phrases. Its bilingual memory produces 
4000 words in English, and 4000 in the 
designated foreign language. Users can 
“call up” a word in either language at 
any time. 

The business traveler will find the 
TRANSLATOR’S 16-word memory 
bank helpful for storing and practicing 
jargon that applies uniquely to his 
business or industry. And every traveler 
can feel confident about mathematical 
calculations because the TRANSLA- 


will be offering LAN: Datastore T " with 
extended report, which is a local area 
network relational database for up to 
five simultaneous users. The package 
allows a central database to be shared 
among IBM PC’s with complete data 
protection. 

Standard Microsystems also designs 
and manufactures MOS/LSI and 
MOS/VLSI circuits as well as board 
level systems products used in computer 
peripherals, data and telecommunica- 
tions equipment, home entertainment 
products and word processing terminals. 

For further information, contact 
Lucy Tarnell, Standard Microsystems 
Corporation, 35 Marcus Boulevard, 
Hauppauge, NY 1 1788, (516) 273-310(h 


Pocket Dictionary 


TOR 8000 is also a calculator, and can 
be used to convert currency, metric 
measurements, the temperature or the 
dinner tip. 

The bright yellow and blue TRANS- 
LATOR 8000 is available nationally in 
computer, electronics, department and 
book stores as well as through some 
catalogs. Inquiries should be directed 
to Langenscheidt Publishers, 46-35 54th 
Road, Maspeth, NY 11378, (718) 784- 
0055. 
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Using BARE AD 2.1 


Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 
pitched beep whenever it’s 
ready for you to scan a line. 


After a line has been success- 
fully read, you’ll hear a lower 
beep. A “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You’ll hear this when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 
the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 

Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 


screen. Note that the program 
you just scanned is now in the 
directory with a .do extension. 

The final step is to convert 
the .do text file to a normal 
basic program. This is done 
quite simply by going to BASIC 
and loading the file with a 
command such as load"TEST 
.DO" (if the program name 
were test). The program will 
load into basic and will be 
ready to run. To save the 
program in basic’s com- 
pressed format (.BA exten- 
sion), you’d type save"TEST" 
(if the program were named 
test). You may then kill the 
.do file with kill "test.do". 


BAREAD Version 2.1 

1000 ' *** Initialize *** 

1010 ON ERROR GOTO 1040 
1020 CLEAR 1 000: MAXF I LES=2 
1030 GOTO 1050 

1040 IF ERR=5 THEN RESUME NEXT 
1050 ON ERROR GOTO 0 
1060 RUNM "B30F9" 

1070 OPEN "WAND:" FOR INPUT AS #1 
1080 UC7.=-1 

1090 PC$ S " 0123456789ABCDEFGHI JKLMNOPQRST 
UVWXYZabcdef ghi jkl mnopqrstuvwxyz- $+" 
1100 DIM RW$ ( 36 ) 

1110 ERI ( 1 ) = " You must scan line 1 -first! 

II 

1120 ER$ (2) = ” You ' ve SKIPPED a line!" 

1130 ER$ (3) = " You ' ve ALREADY SCANNED this 
line!" 

1140 ER$ (4) = "Code not PCM2/39 format!" 
1150 ERf (5)="Command not applicable here 

l l» 

1160 ER$ (6) = " You cannot skip this line!" 


1170 ER$ < 7) = "Sel ected resume file not in 
computer ! " 

1180 ' #** Read Reserved Words List *** 
1190 DATA BEEP, CLEAR, CLOSE, DATA, DEFDBL,D 
EFI NT, DEFNG,DEFSTR, ELSE, GOSUB, GOTO 
1200 DATA INKEY$, INPUT, I NSTR ( , LCOPY , LEFT 
$ ( , LINE < , LOADM , LPR1NT,USING,MAXFILES 
1210 DATA MID*(, NEXT, PEEK, POKE, POWER, PRE 
SET (, PRINT, READ, RESTORE, RETURN, RIGHT* < 
1220 DATA SOUND, SPACE* ( , STR I NG$ ( , THEN 
1230 FOR I7.= 1 TO 36: READ RW$ < 17.) : NEXT 17. 
1240 ' *** Procedure Begins Here *** 

1250 CLS: PRINT844, "PCM Bar Code Program 
Reader v2. 1" 

1260 LINE<20,4)-<219,18) ,1,B:LINE(22,6)- 
(217,16) ,1,B 
1270 NN7.*1 

1280 GOSUB 1660: IF ER7.>0 THEN GOSUB 1620 
: GOTO 1280 

1290 IF LL7.=0 AND INSTR ( " YN" , IL$) >0 THEN 
ER7.=5: GOSUB 1620:GOTO 1280 
1300 IF LL7.=0 THEN ON INSTR ( "ALSR" , IL$) 
GOTO 1820,1890,1980,2050 
1310 IF LL7.=1295 THEN 1350 
1320 IF LL7.0NN7. AND NN7.= 1 THEN ER7.= 1:GQ 
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SUB 1620: GOTO 1280 

1330 IF LL7.<NNX THEN ERX=3:G0SUB 1620:60 
TO 1280 

1340 IF LL"/. >NN7. AND NNX >1 THEN ER7.=2:G0S 
UB 1620: GOTO 1280 
1350 ILI=R I GHTI < ILI , 1 9 ) 

IF LL7.= 1 AND NN7.>0 THEN GOSUB 1780 
CLI=CLI+ILI 
FOR 1 7.= 1 TO LEN (CLI) 
CHI=MIDI(CL$,I7.,1) 

IF CH!="X " THEN GOSUB 1510: IF NL 
1470 ELSE GOTO 1440 
TF CHI ="'/* THEN GOSUB 1550: IF NL 
1470 ELSE GOTO 1440 
IF CHI = " . " THEN UCX=NOT (UC7.) : GOT 


1360 
1370 
1380 
1390 
1400 
7. THEN 
1410 
7. THEN 
1420 
0 1450 

1430 IF CHI=>"A" AND CHK = "Z" AND NOT 
(UC7.) THEN CHI*CHRI(ASC(CHI)+32) 

1440 XXI=XXI+CHI: IF RIGHTS (XX* , 1 ) =CHR 
1(13) THEN PRINT#2,XXI;:XX$*"": UCX *-1 
1450 NEXT 17. 

CLI* " " 

PRINT@200,SPACEI(80) ; 

IF LL 7. 01295 THEN NNX=LLX+ 1 : GOTO 12 


1460 

1470 

1480 

80 

1490 

1500 

ENU 

1510 

1520 


' *** Done *** 

CLOSE.-CALL 61807! : CLEAR 500,HIMEM: M 


*** Decode Reserved Word *** 

NL7. = 0 : IF I % >L EN (CLI) -1 THEN NLX*-1: 
CLI="7." : GOTO 1540 

1530 IX*I X+l : CHI=RWI ( INSTR (PCI , NIDI (CLI , 
17., 1) ) ) 

1540 RETURN 

1550 ' *** Decode Hex and Control Charac 
ters #** 

1560 NL7.*0:IF IX>LEN (CLI) -1 THEN NL7.=-i: 
CLI="/"s GOTO 1610 

1570 IX* I X+l : IF INSTR < ■ , MIDI (CLI , 17., 
1))>0 THEN CHI=MIDI(CLI,I7.,1):G0T0 1610 
1580 IF 1 7.>LEN ( CLI) -1 THEN NL7.=-1 : CLI = RI 
GHTI (CLI , 2 ) : GOTO 1610 
1590 HXI=MIDI(CLI,IX,2):CHI=CHRI((INSTR( 
"0123456789ABCDEF",LEFTI(HXI,1))-1)*16+I 
NSTR( "0123456789ABCDEF", RIGHT! (HXI,1) )-l 

1600 IX=IX +1 
1610 RETURN 

1620 ' *** Error Codes *## 

1630 SOUND 5000 ,10: SOUND 8000 , 1 0 : SOUND 5 
000 , 10 

1640 PRINT@220-.5*LEN(ERI(ER7. ) ) ,ERKERX) 

t 

* 

1650 RETURN 

1660 ' *** Get Code Line *** 

1670 PRINT8173,""; sPRINT USING “Scan lin 
e ###" 5 NN7. 

1680 IF NN7 .=- 1 THEN PRINT01 73 , "Scan any 
line": GOTO 1700 


1690 SOUND 500,5 
1700 INPUT#1 , IL!sER7.=0 
1710 FOR IX=1 TO LEN(ILI) 
1720 IF MID! ( IL! , IX , 1 ) = " ! " 
, 1 7 . , 1 ) = " . " 


THEN MID! (I LI 


1730 NEXT 17. 

1740 IF LENIILDOl AND LEN(IL!)<>21 THE 
N ERX=4s RETURN 

1750 IF LEN ( ILI > = 1 THEN LLX=0: RETURN 
1760 LLf=LEFT! ( ILI, 2) s LL X s ( INSTR ( "01 2345 
6789ABCDEFGHI JKLMNOPQRSTUVWX YZ " ,LEFTI (LL 
!, 1) )-l ) *36 + INSTR ("01234567B9ABCDEFGHIJK 
LMNOPORSTUVWXyZ",RIGHTI(LLI,l) )-l 
1770 RETURN 

1780 ' *** Open Program File *** 

1790 PN!=LEFTI (I L! , 6 ) : ILI=R I GHTI ( ILI , LEN 
( ILI) - 6 ) 

1800 OPEN PNI FOR OUTPUT AS #2 

1810 RETURN 

1820 *** Abort *** 

1830 BEEP: BEEP: BEEP 

1840 PRINT8209, "ABORT! Are vou sure?"; 
1850 INPUT# 1 , ANI 

1860 IF INSTR ( " YN" , ANI ) =0 THEN BEEP: PRIN 
T0251 , "Scan 'YES' or 'NO'":GOTO 1850 
1870 PRINT8200,SPACEI(80) ; 

1880 IF ANI="Y" THEN CLOSE ! KILL PNI+".DO 
" : GOTO 1490 ELSE GOTO 1280 
1890 ' *** Skip Line *** 

1900 IF NNX =1 THEN ER7. = 6:G0SUB 1620: GOTO 
1280 

1910 BEEP: BEEP: BEEP 

1920 PRINT8210, "SKIP! Are you sure?" 

1930 I NPU T# 1 , ANI 

1940 IF I NSTR ( " YN" , ANI ) =0 THEN BEEPsPRIN 
T@251,“Scan 'YES' or NO'":GOTO 1930 
1950 PRINT@200,SPACEI(80) ; 

1960 IF ANI = " Y" THEN NNX=NN7.+ 1 

1970 GOTO 1280 

1980 ' *** Stop & Save *#* 

1990 BEEP: BEEP: BEEP 

2000 PRINT8207 , "STOP & SAVE! Are you sur 
e?"; 

2010 I NPUT # 1 , ANI 

2020 IF INSTR ( "YN" , ANI ) =0 THEN BEEPsPRIN 
T8251 , "Scan 'YES' or ' NO '"j GOTO 2010 
2030 PRINT8200,SPACEI (80) ; 

2040 IF ANI= " Y " THEN 1490 ELSE GOTO 1280 
2050 ' *#* Resume *** 

2060 IF NNXOl THEN ER7.=5: GOSUB 1620: GOT 
0 1280 

2070 PRINT8254, "Resume Mode"; 

2080 NNX=1: GOSUB 1660 

2090 IF LLX=0 THEN ERX=5 ELSE IF LLXOl 

THEN ERX =1 

2100 IF ERX >0 THEN GOSUB 1620:GOTO 2060 
2110 PNI=MIDI(ILI,3,6) 

2120 ON ERROR GOTO 2140 

2130 OPEN PN! FOR INPUT AS #2:G0T0 2170 
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2140 

RESUME 2150 


2150 

CLOSE #2 


2160 

ER"/.=7: GOSUB 1620: GOTO 

1270 

2170 

CLOSE #2 : OPEN PN$ FOR 

APPEND AS #2 

2180 

NN%=-1 ! GOTO 1280 



TESTM (FROM PAGE 68) 


i iiiiiiiiiiiiiiiiiiiiiiiiiiiiiKiiiiiiiiiiiniiiiiiiiiiiiii 
2I1IIIIII1I1II1IIIIIIIIIIII1IIIIIII1IIIII1IIIII11IIIIIII1I1I 
3iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii!niniiniiHiiiiiiiNii 
4iiiiiniiniiiiiiiiiiiiii!iiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiii 
3 IlllllllillllllillllllllllilllllllllllllllllHIlllllllllllllII 

6 iiiiniiniiiiiiHiiiniiiiiiniiiiHiiiiiiiiaiim 
3iiiiiii«iiiiiiii!iiiiiNiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiii 
eiiiiiiiiiiHniiiiiiiiiiiiniiniiiiiininiiiii 
3 lllll(lllllllllllllll!lllllllinill!lllllll!lllllllllllll!ll!lllll 
ie iiiniiiiiiiiiiiiiiiiiiiiiiiiiininiiiiiiiiiiiiiiniiiiiii 

ii iiiiiiiiiiiiHniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiuii 

12 iiiiiiiiiiiiiiiiiniiiiiininiMiNiiiiiiiiiiiiiiiiiii 

13 iiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

14 iiigiiiiiiiiiiiiiiiiwiiiiiiiiigiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

is iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiniiiNiHiiiiiiiiiiiii 
is iinuiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiHiiiiiiiiiH 

i2 llllllilllllllllllllllllllllllllllllHIIllUllllllllllllllllll 

ie iiininiiiiiiiniiniiiiiiiiiiiiiiiiiiiiiiiiiiiinHiiiiiiiiiiiiiii 

is lllllllllllllllilllllllllllllllllHlIllllllRIIIIIIIIIIHI 

20 llllll ll l l lllllllll ll llll l llllllHIIIHIIIllllllllllllllllllllBllli 

21 ninilllllllllllllllllllllllllllllllllllllllllllllllllllHIIIIMill 

22 IIIIINIHIIIilllllllillllllllllllinilHIIIIIIlIHlIlinHl 

23 IMIIIIIIIIIIIIIIIIII III IIIIIIIIIIIIIIIIIIIIIIIIIIIIIBIII 

24 iiiiiiiiiiiiiiiiiiwiiiiiiiiiiiiBiiiiiiiiiiiiiiiniiffliiw 

25 iiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiigiiiiiiiiiiiiiiiiiiiiii 

2s iiiiiiiiiiiiiiiiiiiiiiiiiiiiiMiiiniiiiiiiiiiiiiiiiiiiiiii 

22 llllHIMIIIIIIUIIBIlllllllllllllllIliHlilllll 
20 iiHiiiiiiiiiiiiiiiiiiniiRiiiiiiiiiiiiiiiiiiiiiiiiii 

23 lllllllllllllllllllllllllllllHIIIIIIIIIIIlllllHIlilll 

30 niniiiiiiigiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiHiiiiiiiiii 

31 iiiiiMiiiiiiiiiiiimiiiiiiiiiiiiiiiiiuiniiiiiiiiiiiiiiiiii 

32 iiiiiiiniiiiiiiiHiiiiiiiiiiiiiiiiiiiiiniiiiiiii 

33 iiiiiiiiii!iiiiuiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiii 

34 iiiininiiiiiiiiuiiiiiiiiiiiHiiiniiiiiiiiiiiiiiiiiiiiiiiii 

35 iiiiniiiiiiiiiiiNiiiiiiiuiiiiiiiiiiiiiiiiiiiiiiiiuiiiii 
38 iinniiiNiinHiiiiiiiiimiimiiiiiiiiiiiiiiiiiiiii 

32 llllllllllllllllllllllHIIIINIlWIIIHIIIIIIllWHIi 

30 iiiniiiiiiiiiiiiiiiiiiiiiiniiMuiiiiiiiiiiiiiiiiiiiiiiii 

33 ||lMlllllllllllllllllliilllllllllllin>lllllllllHII!l 

40 iiiiiiiiiHiiiiiiiiiiiiiiniiiingiiiiiiiiRiiiiiiiinNii 


41 iiBiniiiiiiiiiinBHiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

42 iiniiiiiiiiiiiiiiiiiiiiiiiiiniiiiiuiiiiiHiiiiiiiiiiiiiiiii) 

43 niiiiiiiiiiiiiiiniiiiiinuiiiiiiiiiiiiiiiiiiiiiiiiniiiiii 

44 iiiiiiiiiiiiniiiiiiiiiiiiiiniiiiniiiiiiiiiiiiiiiiiiiinii 

45 iwiiiiiiiiiiiiiiiiiiiiiiiniHiiiiiiiiiNiiiiiniiiiiiiiii 
48 ■iiiiiiiiiiiiiniHiiBiiiiiiiiuiiiiiiiiiiiiniiiiniii 

42 iiiiiiiBiiniiNiiiiniiiiBiiiiiMiiiiiiiiiiiiiiiiiii 

43 iiiniiiiiiinniiiiiiiiiii iimin miiiiiiiiiinihiii mini imiHiiiiii 
43 iiiiiiiiiiiniHiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

50 iiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiii 

51 nnniiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

52 iiiuiiiiiiiiiiingiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiNiiiiH 

53 iiiiiiiiiiiniiiiiiiiiiiiiiiimiiiniiiiBiiiiiiiiii 

54!iiHiiiigiiiiiiiNiiiiiiiiiigiiiiiiiiiiiiiiniiiiiiiiiiiiiii 
55 iiiiniiiiiiiininiiiniiiNiiiiiiiiiiiiiiiiiiiiiiiiiiiiHii 
58 lillHllllllH>IIUIIIIIINiaNlllWI«liHIHIIIII«llllllll 

52 iiiiiiiiiiiiiiiiiiiiiiiiiiiigiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

5s iiiiwiiiiiiHiiniiiiiiiiiiiiiiiiiiniiiiiiiiiiiiniiiiii 

53 iiiiiiiiiiiiiiiiiigiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

80 lllilllllllllllllllllllHlIlllllllllllillHIIlWHIIIIIIIIIIIIIl 
si iiiiiiivgiiaiiiiiiHiuiiiiiaiiHiiiiiiiiiiiii 
82 iiiiniHiiniiiiiiiiiiniiiiiiigHiiiiHiiiiiiiiiiiiiiii 
63 tiiiiiiiiiiiiuiiiiiiiiiiiiuiiniiiimuiiiiiniin 

84 iiiiiHiiiiittiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiniiiiiiiwii 

85 iiiiiiiiiiiiiniiniiniiiiiiiiiiniiiiiiiiiiiiiiiniiiiiii 
88 iifiiniiiiiiiiiniiiiiMiiiiinmMiiiiiiiiiiiiiiiiiiii 
82 niiuiiiniiiiiiiiHniiiiiiiiiiiiiiimiiigiiiiiiiiiiii 
88 iiiiiiiiniiiiiiiiniiiiiiiwiiiiiniHiiiiiniiHiiiiiiii 
83 iiiiniiiiiiiiiiiiniiiiiiiiiiniiiiiiiiiiiiiiiii 

20 iRiiiiiniiiiiiiiiiiiiniiiiiiiiiiinHiiiiiiiiiiiiiii 

21 iiiiiigiininiiiiiiiiiiiiiiiiiHiiiiiiiiiiiiiiniii 

22iiiiiiiiniiiHiiiiiiiiniiiiiiiiiiiiiiiMiiiiiiiini 

23 iiiiiiiiiiiiniiiiiiniiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiini 

24 iiiniiiiiiiiiiiiiiiigiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 

25 iiiiinniiiiiiiiiiiiiiiiiiiiiiHiiiiiiiiiiiiiiiiiiiiiiiiiii 

28 ■lllllllllMllllllllliliilllUlllllHIlill 

22 iiiiiniiiiiiiiiiniiinNiiHuiiiiiuiiiiiiiiiMiii 
28 inniiiiiiiiiiigiiiiiniiiiiiiiiiiwimiMiiiiiniiv 

23 iiiiiiiHiiiiiniiiiiiiiiiHiHiiiiuimi!iiii 

00 liniiiiiiiiiiiingiiiiiiuiiiiiigiiiiiiiiiiiiinii 

01 iiiiiiiiiiiiiiiiiiiiiiiiiimiiMiiiniiiHiiiiiiiimii 
82 iRiiiiiiiiiiiiiiiiiiiiiiiiiiNimnniiiiiiiiiiiiiiiui 

03 IIIIIIIIIlllllIIIIIIIIRillUlllllllillllllllHIIIillllll 

04 niiiiiiiiniiiiiiniiniiiiiiiiiiiiiiiiiiiiiiiiiiiii 

05 iiiHuinniHiiiiiiHiiiiiiHiiMiiKihRiiniiHiiiiiiiini 
08 iiiiiiiiiiiiigiiHiiiiiiiiiiigiiiiiiiiiiiiiiiiiiiniiiiini 

02 iiiniiiiiiiiiiiiiigiiiiiiiniiiiiiiiiiiiiiniiiiiiiiiiiiiii 
00 iiiiiiiiiiiiiiiiHiiiigiiiiiiiiiiiiiiiiniinwiiiiiMiiiiii 
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89 iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiuiiiiiiiiiiiiiiiHiiinuii 

9» iiiitiiuiniiiiiiiiiiiiiiiNiiiiHiiiiiiiiiiiiiiiiiiiii 
9i iiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiNiiiii 

92!llll|ll|||||||ffll||||||||||||M||||||l||I|||||I|||||||||||||||| 

93 IIIIIIIIIIIIHIIIIIIIIllllllllllllllllllllllllllllillWIIIIIIIIIII 

90 IIIIIIIIII1III1IIIIIIIIIIHIIIIIIIIIIHIIIIIIIIII1IIIIIIIIIIIIIIIHI 
98 lllHilllllinillllllllllllllllllllllllllllllMDllllllllllllllll 
98 iiiiiiiiiiiiiiiiHgiiiiiiiiiiiiiniiiiiiiiiiiiiiiiHiiiiiiiii 
93 lllllllllliliniilllllHillllllllllHIllillllllllllllllM 

98 IIMIIIRIIIIIIIIIIIIIIIUIIHIillllllllHIIIIIIIUIIlllll 

99 iiiiiiiiiiiiiiniiiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiHiiiiiiiiiiiiin 

199 IIIIIMIIIIIIIIIIIIIllllllllllRllllllllllllllllllllilllllllRIII 

181 IIUllllllllllllllllHllllllllllllllllllllllllMinilllllllUllllll 

i 92 lll||llilHI||||l|||||llii|i|||||||||||||||iii|||HHHi| 

193 IIIIDWRIHIIIIIIIIIIIHMIUllllllllllUHIIllllllllllllllllllllllllllflll 
i98 llllllllllllMlllllllllllllllllllllllllllllllilRiiiiigiiiiiiiiiii 

us lllllllllllllllllllllllllllllllllllllDnilllllllillllllllllMlllllli 
i88 iiiiiuiiiiiiiiiiiiiiiiiiiiiiiiginiiiiiiHiiiiiiiiiiMiiiiiiiiii 

192|lillllllllllllllllllllllllll|i||||||||||||||||||i|||U|N|||l 

198 HNIIIllllillllilllliiiiiiiiiniiiiiiiiiiiiiiiigiiiiiiiiiiiiiiii 

199 iiiinmiiiiiiiiiiMiiiiiiiiifliiviiiiiiiiiiiiiiiii 

118 iiiiHiiiHiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiigniiiiiiiiiiiiiiiniw 

in 

ii2 iiiiiiiiHiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiuiniii 

n3 iiinniiniHHiiiiniiiiiiiiiiiiHiiiiiiiiiiHiiii 

119 niinniiiiiiiiiiii«i)iiiiiniiiiiiiiiiiiiiniiiiii 

ii 5 iiiiiiiiiiiiimiitiiiiiiiiiiffiliBiiiii i Hiiiiiiiiiiiiii ii i 
ii8 IIIIIIIIIIIIIRIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 
ii2 IIMIIIIIIIIIIIIIIIIIIIIIIIIHIlllllllilll l lllllll l lllllllll 

H 8 iiiniiiiiniigiiiniwiiHiHiiiiiininiiiiiiiii 
U9 iinviiMiiigiiiiiiiiiiiiiiiiiiiniiniiHiiniiii 

1 28 ■iHiiHiiiiiiiiaiiiiiiiiiiiiiiiiiiiigiiiiiiMniiiii 

121 iiigiiiiiiiiiiHiiiigiiiiiiinMUiRiiiiniiiiiigiii 

122 iiiniiiiiiiiigiiiiiiiiiiRiiiiiiiiigiiiiiiiiii 

123 ilHiiiiiHiiiiiigiiigiiiniiiiiiiigiiiiiiiiiiiiiiiiiii 

129 iiiiiiniiiiiiiiiiiiiiiigggiiHgigiiMiiiiiiiiiigHi 

i 25 IIUIlllIlllllHlllliiiniiigiiiiiiiiggiiiiiiiiiigngiigi 
128 iliniliiiiiiiiiiniiiniiiiiiiHiiigiiiigiiiiHiiiiiiniiiiii 
i22 llligiiiiiiiiiiiiiiiigiiiiiiiiiiiiigiiiigiiii i iii mii iiiiin 

128 iniiiiMiiiiiiiiiiiiiHgiiiiiiHiiiiiiiigimiiii 

1 29 iiniiiggiiiiiiiiiniiiginuiiiiiiiiiiiiiiiiHiiiiiiiigiiiMii 
i39 iiinHiiiiiiiiiiiiiiiiiiigiiiiHiiiiiiffliiiiiiiiiiH 
i3i ■liiiiiiiiiiiiiiiiiiiiiiiiiiiiigiiiiigngiiiiiiiiiiiii 


132 iiiiiiiniHiiiiiiniiiiiiiiiiiiiiiigniiiiiiiiiiiiiigiiiiiii 

1 33 liiiiiiiiiiiniiiiiiiiiiginiiiiiiiiiiiiiiiiiiiiiiiiiiiiuiiii 
139 iiiiigiiiiiiiiiiiiiiiiiiniiiingiiiiiiiiiiiiiiiiiiiiiiigiiiin 
i 35 iiiiHiiiiiiiiiiiiiiiggiiiiiiiniiniiiiiiigiiNiiiw 

i38 iKniHlllllllliiigiiiigiiiiiiiiiwiiiiiiiiigiiiiiigigHiiiiii 
132 ■iiniiiiiiiiiiiiiiiiiiigiiiiiiiiiigiiiiiiiiiiiiiiiiiiiiii 

138 iiniiiiiiiigiiiiiiigiiingiiiiiigiiiiiigiiiigii 

139 lllllligHlIlllllllllllililiiiiiiiiiiiiiiimigigiiiiigggiH 

199 iiiiibi h iiiiii 

191 iiiiiiiigiiiiiiiiiiiiiiiuiiiiHHiiiiiigwiiiiiiiiiiiiH 

192 ninniiiiiiiiRiiiiiiiiiiiiiiiniiiiiiiiiiiiigigii 

193 iiiniiiMiiiiiiniigggiiiiiiiiiiiiiiiiHgiiMiiiiiigimii 
199 llliilllliiiiiiiiHiiiiiifliggigiiiiigiiiiiiiiiiiiiiiiii 
i95 iivgiiiiigiiiiiiiiiiniifliiiiiiiiiiiiiiiiiiiiiiii 

198 iiiiiiiiiiingniiigiiiiiiiiniiiiiiiiiiiiiigiiim 

192 iiiiHiniiiiiiiiiiiiiniiiiiiiiiiHiiiiiiigiiniiiiiiiiiiiiii 

^eiiiigiiiiiimgniiiwiiigiiiiiingiiiiiiiiiiiiiiiinnii 

199 iiilliniiiiiiigiiigiiiiiiiigigiiiiiiiiiiiigiiiigiiiiiiiiiiiiH 
i59 iiiiiiiiiiiiiiiiiiiiiiiiigiiiiiHiniiiiiiiiiiiniHiiiiiii 

151 iiiniiiiiiiiiiiiiiiniiiiiiigniiiiiiiiiiiiiiiiiii 
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The Rackseller 



ALABAMA 

Birmingham 

Florence 

Madison 

ALASKA 

Fairbanks 

ARKANSAS 

Fayetville 

ARIZONA 

Ftioenix 

Scottsdale 
Tucson 
CALIFORNIA 
Citrus Heights 
Halt Moon Bay 
Livermore 
Lompoc 
North 
Hollywood 
San Francisco 
Santa Rosa 
Sunnyvale 
DELAWARE 
Middletown 
Wilmington 
FLORIDA 
Altamonte 
Springs 
Boca Raton 
Ft. Lauderdale 
N. Miami 
Beach 

Panama City 
Pensacola 
Tallahassee 
GEORGIA 
Atlanta 
Columbus 
ILLINOIS 
Chicago 


Oakbrook 


Jefferson News Co , 

Anderson News Co, 

Madison Books 

Fairbanks News Agency 

Vaughn Electronics/Radio Shack 

Computer Pro 
Tri-Tek 

Softwareland Corp. 

Anderson News Co. 

Software Plus 
Strawf lower Electronics 
Software Galerla 
L & H Electronics Emporium 

Levity Distributors 
News on 24 
Sawyer's News 
Computer Literacy 

Del mar Co. 

Normar Inc.— The Smoke Shop 


International Music & Recordings 
Software, Software, Inc. 

Software Connection 

Almar Bookstore 
Computer Systems Group 
Anderson News Co. 

Anderson News Co, 

Guild News Agency 
Muscogee News Co. 

Chas. Levy Distr. 

Kroch's & Brentano's 
Jackson Street 
Kroch's & Brentano's 
Wabash Ave. 

Prairie News Agency 
Kroch's & Brentano's 


INDIANA 

Elkhart 

Mishawaka 

Scottsburg 

IOWA 

Ames 

Davenport 

KANSAS 

Wichita 

KENTUCKY 

Louisville 

Prospect 

LOUISIANA 

Gretna 

Slidell 

MARYLAND 

Laurel 

Lexington Park 
MASSACHUSETTS 
Littleton 
Marlboro 
MICHIGAN 
Rochester 
Sterling Heights 

Wyoming 

MISSOURI 

Independence 

NEBRASKA 

Lincoln 

NEW HAMPSHIRE 

Manchester 
Peterborough 
West Lebanon 
NEW JERSEY 
Clinton 
Hackensack 
Marmora 
Pennsville 


Elkhart City News & Book Store 
Carrico's Radio Shack 
Radio Shack of Scottsburg 

Myers TV & Stereo Repair 
Interstate Book Store 

Lloyd's Radio 

Hawley-Cooke Bookstores 
Falsoft, Inc. 

Computer Supply Store 
Radio Shack 

Pete Brewin 
Books, Etc. 

Computer Plus 
Radio Shack 

Rochester Book Center 
Software City 
Programs, Inc. 

Gerry's Book Co. 

Digital Enterprises, Inc. 

Hobby Town 

Brookwrights 

BRW Electronics-Radio Shack 
Verham News Corp. 

Micro World II 
Total Circulation Service 
Outpost Radio Shack 
Dave's Electronic Radio Shack 


NEW MEXICO 

Alamogordo 

Albuquerque 

NEW YORK 

Hudson Falls 


New Horizons Computer Systems 
News and Bookstore 
Page One Newsstand 

G.A West & Co. 


NORTH CAROLINA 

Cary 

Sylva 

NORTH DAKOTA 

Fargo 

OHIO 

Cincinnati 

Toledo 

OKLAHOMA 

Oklahoma 

City 

PENNSYLVANIA 

Pleasant Hills 

RHODE ISLAND 

Newport 

SOUTH CAROLINA 

North 

Charleston 
TENNESSEE 
Knoxville 
Memphis 
Nashville 
Smyrna 
TEXAS 
Dallas 
Ft. Worth 
VIRGINIA 
Alexandria 
Norfolk 

WASHINGTON 

Kennewick 

WISCONSIN 

Ladysmith 

CANADA 

ALBERTA 

Calgary 

Edmonton 


It's Just For You, Inc. 

News Center in Cary Village 
Total Data Systems 

Computer Associates 

Cinsoft 

Leo's 


Merit Computers 
Pittsburgh Computer Store 
Kelly's Variety 

The Green Dragon 

Anderson News Co. 
Computer Center 
Mosko's Book Store 
Delker Electronics. Inc. 

Micro Concepts, Inc. 

A & A International 

Alonso Book & Period 
1-0 Computers 

Satellite TV Specialists 

Electronics, Etc. 


Rainbow Software Services 
CMD Micro 

Kelly Software Distributors 


BRITISH COLUMBIA 
Sidney Sidney Electronics 

QUEBEC 
LaSalle 
NOVA SCOTIA 

Halifax Atlantic News 

Also available at selected B. Dalton Bookseller stores 


Messageries De Presse Benjamin 


Advertisers Index 


Alps 

Axonix 

BKI. 

Blackhawk Data Systems 
Buddy Systems ....... 

CDA Computer Sales 

Computer Plus 

Computer Solutions 

Cryptronics Inc 

Custom Software 

Delker Electronics 

DFW COMPUTER CENTER . . . 

Envision Designs 

FORT WORTH COMPUTERS . . 

Hard Drive Specialist . 

James River Group 

Joe Lynn Computer Services . . . . . 

Mark Data 

Marymac Industries 

Micro Computer Business Service 

Nocona Electronics . . . 

PBJ 

PCM Binders 

PCMfest 

Portable Computer Support Group 

Dr. Preble’s Programs 

Purple Computing 

Radio Shack 

RTX Technologies 

Sigea Systems 

Small Computer Co 

Software Support 

Southwestern Digital 
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PCM Advertising and Marketing 


Representatives 



Cindy Shackleford 
Director, West Coast Office 
12110 Meridian South — Suite 8 
P.O. Box 73-578 
Puyallup, WA 98373-0578 


(206) 848-7766 


Kate Tucci 

Advertising Representative 
9529 U.S. Highway 42 
P.O. Box 385 
Prospect, KY 40059 


(502) 228-4492 
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Join us for our very first show . . . 



frmcdonjlj. 


Y ou’re invited to PCMfest, a great new show 
that's just for yourTandy computer. Sponsored 
by PCM, The Personal Computing Magazine for 
Tandy Computer Users, it’s a wonderful way to meet 
and exchange information with those who share 
your interest in the new generation of Tandy 
computers. 

You’ll also discover the greatest variety of products 
ever for your computer because all of the favorites 
and a lot of new ones will be featured in the exhibits 
of pcm advertisers. Try out that new program and 
take it home that very day! 

Along with other pcm readers, you’ll meet the top 
national experts on your computer, including those 
who write for or who are written about in pcm. They 
will answer your questions on the spot 
PCMfest also will include a comprehensive lineup 
of free seminars on topics of immediate concern — 
and all of them designed to help you get the most 
out of your Tandy computer. 

The Hyatt Regency - Princeton will be offering 
special rates ($65, single or double room) for 
PCMfest. The show opens Friday evening with a 7 
p.m. to 10 p.m. session. It’s a daytime-only show 
Saturday — the exhibits open at 10 a.m. and run 
continuously until 6 p.m. On Sunday, the exhibit 
hall opens at 11 a.m. and closes at 4 p.m. 

Tickets may be obtained directly from pcm. We’ll 
also send you a special reservation form so you can 
take advantage of the special room rate. Come to 
PCMfest and let’s celebrate the new generation of 
Tandy computers! 



Keynote Speaker 


Bill Bardefl, respected a rjthor of 30 books on various 
computer subjects, wilt speak at our Saturday Breakfast at 8 a m 
(Separate tickets required.) 

Free Seminars 

Sam Red men The Future of Portable Computing 

As co-founder of the Da&as-based Portable Computer Support Group. Sam 
markets a wide variety of software and hardware for the Tandy portables 

Harry Brawiey The Portable Computer Environment 

Presadent of Srgea Systems, he is creator of the Telecommuter integrated 
cofnrnufMcabons and word processing software. 

Cart Oppedaht Computer Law and Portable Computers 

An attorney practicing law in Manhattan, Cad specializes in technological 
fettgabon He *s the author of a newfy-pubftshed book titled Advanced 
Programming for the Model 10CL 

B1 Barden Computer Languages 

Discussion «i include choosing the right language for your application 
and an overview o# the most popular mic roc omputer languages inducting 
BASIC. C. Pascal and Assembly . 

Bob Covington Data Communications 

A writer and editor from SL Louis. Bob ts author of "The Portable Machine" 
series for the Tandy 100 and the ^Subroutine City" senes for Tandy's MS- 
DOS computers. 

Howard Wotowitz Database Management 

President of Smafl Computer Company. Howard is one of the developers 
of Smatf s popular Prof tie and fdePrc database management systems. 

Danny Humphreys ViaNet— Tandy’s New Intra- 

Office Communications System 

PCM managing editor and author of the ~US-OOSaier and ‘dBASE Tutor 
series, Danny also owns a software firm in Louisvde 

Your admission to PCMfest also 
entitles you to attend RAINBOWfest, 
the highly popular show for the Tandy 
Color Computer which will run con- 
currently with PCMfest at the same location. 



YES, I m coming to Princeton! I want to save by buying tickets now at the special advance sale price. 

Please seod me: 

three-day tickets at $9 each 

one-day tickets at $7 each total City State 

(Circle one) Friday Saturday 


total 
total . 
Sunday 

. Saturday Breakfast at $12 each total . 

Handling Charge $1 . 
TOTAL ENCLOSED 


Name (please print) 

Address 

City 


□ 


U.S. FUNDS ONLY, PLEASE 

Also send me a hotel reservation card for the Hyatt 
Regency- Princeton ($65, single or double room). 


Telephone 

Company 

Charge to: 

□ VISA □ MasterCard 

Account Number 

Exp. Date 

Signature 


ZJP_ 


□ American Express 


Make checks payable to: PCM. Mail to: PCMfest. the Fafcoft Building. P.O. Box 385, Prospect, KY 40059. To make reservations by 
phone, call: (502) 228-4492. 

Advance ticket deadline: October 4, 1985. Orders received less than two weeks prior to show opening will be held for you at the 
door. Tickets will also be available at the door at a slightly higher price. 





plus powerful Nicad 
battery pack that gives 
30 hours of power 
to your Model 100 


A joint PCSG/CRYPTRONICS project. 


$269 


Now you can access LUCID, DISK + , 
WRITE ROM, RAM + and others 
instantly. 

The 6 ROM BANK plus battery pack lets 
you have the ultimate Model 100 system. 
When you get your unit just press in up 
to 6 ROMS into the sockets then push in 
a simple plug into your Model 100’s ROM 
socket. The ROM bank has two posts on 
either end that insert into the two little 
holes on the underside of your Model 100. 

The ROM bank props up the Model 100 at 
the same angle and height as those 
little legs you’ve seen. The ROM BANK 
itself is only about IV 2 ” deep and it runs 
the width of your Model 100. It only weighs 
one pound. It not only installs instantly, 
but it pops free in a second if you need 
everything to lie flat in a briefcase. 


Change from ROM to ROM with the 
touch of a thumb switch. 

You can go from LUCID to WRITE to 
DISK -i- to any other ROMS just by turn- 
ing the thumb switch at the side of the 
ROM bank. The 6 ROM BANK is a sturdy 
well built construction that looks like it is 
a part of your Model 100. 

What is also fantastic is that the ROM 
bank has a powerful NICAD battery and 
recharger built right in. This power source 
supplies up to 30 hours of life to your 
Model 100 with just 6 hours of recharge. 
What’s nice is that it recharges right from 
your Model 100’s power adapter. This is 
a quick charge system and if you need 
power in a hurry, you can get 6 hours of 
life for your Model 100 by just charging for 
an hour and half. 


Suddenly, the Model 100 is a very 
powerful computer. 

If you have the HOLMES portable disk 
drive with its powerful bundled database 
software package or the CRYPTRONICS 
128K RAM expansion along with LUCID, 
WRITE ROM and DISK+ in the 6 ROM 
bank with its rapid rechargable NICAD 
power source, you have the ultimate port- 
able system. It’s all available only from 
PCSG. 

As usual we don’t want you to take our 
word for it. The 6 ROM BANK is sold on 
a 30 day trial. If you are not satisfied 
simply return within thirty days for a full 
refund. MC, VISA, AM. EX. or C.O.D. 

1 - 214 - 351-0564 


RDRTABLE COMRJTER IJffORT GROUP 

1 1035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 

VISA / MASTER CARD / AM. EXP. / C.O.D. 


